z.B. so :
Delphi-Quellcode:
lblUhrzeit.Caption := 'Uhrzeit : ' +FormatDateTime('hh:mm',now);
...
procedure Tfrm.tiUhrzeitTimer(Sender: TObject);
begin
inherited;
lblUhrzeit.Caption := 'Uhrzeit : ' +FormatDateTime('hh:mm',now);
end;
Dabei soll ein Timer das abfragen.