zur zeit: Nutze einen Timer! (unter System)
Beispiel:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var tag, datum : string;
begin
tag := Timetostr(Time);
datum := DatetoStr(Date);
label1.caption := tag + '; ' + datum; //Uhrzeit und Datum
end;