{
Time, TimeToStr example
This procedure displays the current time in the form's caption every time the 
Timer's OnClick event fires, based upon the Interval Property (default: 1000 = 1 sec)
} 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  DateTime : TDateTime;
  str : string;
begin
  DateTime := Time;  // store the current date and time
  str := TimeToStr(DateTime); // convert the time into a string
  Caption := str;  // display the time on the form's caption
  { Note This could have been done with the following line of code:
    Caption := TimeToStr(Time); }
end; 
