Problema con format

santiago14 · #1 18-08-2005

Hola tengo lo siguiente:

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
//devuelve un nro en formato string con la cantidad de ceros a la izquierda necesarias
var
  formato:string;
  cantDigitos:integer;
  nro:integer;
begin
  cantDigitos:=strToInt(Edit2.text);
  nro:=StrToInt(Edit1.Text);
  formato:='%0.' + intToStr(cantDigitos) + 'd';
  Edit3.Text:=format(formato,[nro]);
end;

nro=15
Por ejemplo, cuando cantDigitos = 5, devuelve: 00015, y esto está bien.
Pero cuando cantDigitos es mayor a 16 devuelve: 15, yo quiero que devuelva el string con la cantidad de ceros que corresponda, por ejemplo: cantDigitos = 18, y devuelva: 000000000000000015, cosa que no sucede.
Quisiera saber que pasa, y si format no da para mas de 16 digitos que alguien me diga como resolver este problemita. Gracias.