Pasar de minutos a Horas:minutos

[[enecumene]]

Hola,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
  Minutos,Horas,HorasTotal: Integer;
begin
Minutos := 171;
Horas := Minutos div 60;
HorasTotal := Minutos - (Horas * 60);
Edit1.Text := Concat(Horas,':',HorasTotal);
end;

Lo hice al vuelo no sé si funcionará, pero es una idea.

Saludos.