Que hora es?

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
tHora:TTime;
begin
tHora:=Time;
label1.Caption :=TimeToStr(tHora);
end;

Aunque se puede pasar directamente a la etiqueta o campo sin necesitad de la variable, pero a modo de ejemplo te puede servir.

Un Saludo.