[marcoszorrilla]

He probado tu código y funciona perfectamente.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
hora2:Ttime;

begin
    hora2:=Time;
    s:=TimeToStr(time); //  <<---- Se me situa el cursor (|Time)
    ShowMessage(s);
end;

Un Saludo.