Rellenar con ceros (0)

[olbeup]

Otra forma de hacerlo es

Código Delphi [-]
FormatFloat('00000000', 250);

El resultado es 00000250

También te puedes crear una función:

Código Delphi [-]
function GetIntToStrZero(Value: Integer): String;
begin
  Result := FormatFloat('00000000', Value);
end;

Ejemplo:

Código Delphi [-]
...
var
 X: String;
begin
  X := GetIntToStrZero(250);
end;

Un saludo.