procedure TForm1.Timer2Timer(Sender: TObject);

begin

Label1.Caption := TimeToStr (Time);

Label2.Caption := DateToStr (Date);

end;

end.

-------------------!!!!!!!!!!!!--------

//other source

DateTimeForm.Show;