Du wandelst intern ja einen Integer in einen String um, oder?
Dann fügst du einfach für den Fall, das die jeweilige Teilzahl kleiner als 10 ist, ein '0' vorne am String ein.
in Code:
Delphi-Quellcode:
str := inttostr(zahl);
if zahl < 10 then
begin
setlegth(str,2);
str[1] := '0';
end;
mfG
Markus