Hola gcc32, yo utilizaría la función IncMinute de la unit DateUtils, lo que hace esa función es incrementar o decrementar la cantidad de minutos que quieras, tu codigo quedaría así:
Código Delphi
[-]
uses DateUtils;
............................
var
Hora : TTime;
CantMinutos : Integer;
begin
CantMinutos := 60;
Hora := IncMinute(Now, -CantMinutos);
showmessage(TimeToStr(Hora));
.......................................
Saluditos