Minuten zählen und als formatierten hh.mm String ausgeben

[torud]

Hallo Wissende

ich erhalte in 5 Parametern die Minuten von diversen Prozessen. Ich will nun alle zusammenrechnen und daraus einen formatierten String erstellen.

Wenn alle minuten mm_1 - mm_5 leer oder 0 sind, dann soll das Ergebnis 0:00 oder 0'00 sein.

Oder z.B. mm_1 = 65 und mm_2 = 36 dann soll das Ergebnis 1:41 oder 1'41 sein.

die folgende Routine macht das schon, aber ich erhalte statt 1:02 => 1:2

Delphi-Quellcode:

mm_tot := mm_1 + mm_2 + mm_3 + mm_4 + mm_5;
hh_tot := (mm_tot div 60);
mm_tot := mm_tot Mod 60;
str_mtime := (inttostr(hh_tot)+''''+IntToStr(mm_tot));
lbl_mtime_udp.Caption := str_mtime;

Kann mir bitte jemand helfen? Ich bin nicht sehr mit der Formatierung von Strings vertraut...