Uhrzeit in Textbox

[derklausi]

Hallo,

ich hätte gern in einer TextBox wenn ich diese anklicke das es mir die aktuelle Uhrzeit anzeigt, es klappt soweit nur steht davor noch das Datum was ich nicht benötige.

procedure TForm1.Edit5Click(Sender: TObject);
begin
edit5.Text := TimeToStr(Time);
end;

Bitte um kurzen Tipp

danke