Articles

Use Timer component and this code for onTimer event.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Caption:=DateTimeToStr(Now);
end;