31 = 00031 ??

en streng på 5 bit - det giver absolut ikke mening. Men en streng på 5 byte/5 tal giver mening.
Gør fx sådan:

function IntToStrSize(I, Size: Integer): String;
begin
  Result := IntToStrDef(I, 0);
  while Length(Result)<Size do
    Result := '0' + Result;
end;

ShowMessage(IntToStrSize(32, 5));

function AddLeadingZeros(const Source: string; Len: Integer): string;
var
  i: Integer;
begin
  Result := Source;
  for i := 1 to (Len-Length(Source)) do
    Result := '0' + Result;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
showmessage(AddLeadingZeros(edit1.text,5));

end;

Stoney

Du kunne lægge de 32 over i en variable...

F.eks:

var i,j : integer;
    s,t : string;
begin
  i := 32;
  s := IntToStr(i);
  t := '000'+s;
  j := StrToInt(t);
end;

Den burde virke...

hmmm geek1011..vil den sidste linje "j := StrToInt(t)" ikke fjerne alle nullerne igen?

Lær den glimrende format funktion at kende...

Format('%.5d',[32]) returnerer en streng '00032'