[dec]

Hola,

Código Delphi [-]
uses
  SysUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Caption := TimeToStr( Time );
end;