[Alegun]

Тогда может - выставите длину строки равной максимальной разрядности предпологаемого числа (напр. "0000") а дальше

Код:

function wr(ds: string): string;
var
 i, b: integer;
begin
 Result:= '0000';
 b:= 4;
 for i := Length(ds) downto 1 do
  begin
   Result[b]:= ds[i];
   dec(b);
  end;
end;

входная 55 будет как 0055

или

Код:

function wr(ds: string): string;
begin
 Result:= ds;
 while Length(Result) < 4 do
  Result:= '0' + Result;
end;