[[seoane]]

Puedes usar la funcion format:

Código Delphi [-]
var
  i: integer;
  s: string;
begin
  i:= 10;
  s:= Format('%.5d',[i]);
  ShowMessage(s);
end;