[[egostar]]

Usa esta función

Código Delphi [-]
 
Var
  VarZeros,Numero : String;
  Long: Integer;
begin
   Numero := '10';
   Longitud := 6; //cadena de 6 caracteres
   VarZeros := Format('%.*d',[Long,StrtoInt(Numero)]);  //'10' = '000010';
end;

Saludos.

Editando:

Seoane me gano, pero bueno, mi respuesta es otra opcion, donde puedes meter la longitud como una variable.
Ups y tamien Roman. que rapidos son.