godz 12:45 +0.212 dnia

Jak napisać kod taki aby po pobraniu godziny można było dodać do niej 500min albo 3.8h a najlepiej w postaci 0.1111 dnia
Oczywiście chciałbym wygenerować poprawny czas w postaci HH:MM

w postaci "jawnej'

var
  time: TDateTime;
begin
  Time := Now;
  Time := StrToTime('03:40:00');
end;

albo "zakodowanej"

var
  time: TDateTime;
begin
  Time := Now;
  Time := Time + 0.1111;
end;

ok ale jezeli moje dane to dni
czas podawany w ułamku dniowym np 0.232 dnia jak to zamienic na forme zakodowana

przeliczyć na minuty i godziny :> i nie pisz, że nie wiesz jak bo chyba mnożyć i dzielić potrafisz :>