Puedes primero separar la parte entera y la parte fraccionaria en dos variables enteras H, M:
H := Trunc(A);
M := Trunc(100*Frac(A));
Dado un número de minutos M, M
div 60 te dará el número de horas y M
mod 60 el número de minutos ya descontando las horas completas en M.
Así, puedes poner
H := H + (M
div 60);
M := M
mod 60;
Finalmente juntas ambos en una variable string:
S := Format('%d:%d', [H, M]);
Para este caso particular en realidad puedes poner simplemente
Código:
H := Trunc(A);
M := Trunc(100*Frac(A));
if M >= 60 then
begin
Inc(H);
Dec(M, 60);
end;
S := Format('%d:%d', [H, M]);
// Saludos
pd: Esto funciona sólo si se dan sólo dos dígitos decimales.