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.