Format für Zeit ändern

[Larsi]

Hi,

ich habe folgenden Code welcher als Variable Sekunden erwartet und diese dann in Sekunden, Minuten und Stunden umrechnet.

Hier der Code:

Delphi-Quellcode:

var
  Hour, Min, Sec, MSec : Word;
begin
i := i + 1;
DecodeTime(IncMilliSecond(StrToTime('00:00:00'), i*1000),Hour,Min,Sec,MSec);
end;
statusbar1.Panels.items[1].Text := inttostr(hour) + ':' + inttostr(Min) + ':' + inttostr(Sec);
end;

Jedoch sieht die Zeit bspw. so aus:

0:1:20

Wie kann ich da zwei Nulllen anzeigen also das die Ausgabe so aussieht:

00:01:20?

MFG Larsi