Zeitfunktionen in Delphi

[brsx]

procedure zeit(Sender: TObject);

var
DateTime : TDateTime;
str,t1 : string;
begin
t1:=form1.LabeledEdit5.Text;
str:= TimeToStr(DateTime ); // Uhrzeit in einen String konvertieren
form1.LabeledEdit4.Text:=str;
end;

ich hätte eher an so was gedacht!!