Führende Null bei Zahlen kleiner 10

[dahead]

um es als string anzuzeigen habe ich mir mal folg. funktion geschrieben:

Delphi-Quellcode:

  function IntToZeroStr(const Value, Digits: Integer): String;
  var
    tmpRes: String;
  begin
    if Value < 0 then
    tmpRes := IntToStr(Value * - 1)  else
    tmpRes := IntToStr(Value);
    while Length(tmpRes) < Digits do
     tmpRes := '0' + tmpRes;
    Result := tmpRes;
  end;