Função transformar minutos p/ horas no Delphi

//Função para transformar minutos em horas
//Ex: 90 min = 1:30

Function MinparaHora(Minuto: integer): string;
var
hr, min : Integer;
begin
hr := 0;
while minuto >= 60 do begin
minuto := minuto – 60;
hr := hr + 1;
end;
min := minuto;
Result := FormatFloat(’00:’, hr) + FormatFloat(’00’, min);
end;