Platziere dazu eine Timerkomponente auf dem Formular und stelle im
OI das Intervall auf 1.
Schreibe nun in die OnTimer Methode vom Timer:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := TimeToStr(Now);
end;
Jetzt wird jede Sekunde die aktuelle Zeit in einem Label ausgegeben.