Y si lo quieres un poco más complejo, podría devolverte la cantidad de días si son más de 24 horas:
Código Delphi
[-]
Edit6.Text := MiHoraATexto(32.5); ...
function MiHoraATexto (Valor : Real) : string;
var
Hora : Real;
FormatoDelphi : TDateTime;
Dias : integer;
begin
Hora := 1/24; FormatoDelphi := Valor * Hora; if (FormatoDelphi > 1) then
begin
Dias := Trunc(FormatoDelphi); FormatoDelphi := FormatoDelphi - Dias; Result := IntToStr(Dias)+' Dias 'TimeToStr(FormatoDelphi)+' Horas';
end;
Result := TimeToStr(FormatoDelphi)+' Horas';
end;