Completar campo con zeros

[Khronos]

Hola alcides por favor lee la guia de estilo y utiliza las etiquetas delphi para poner tu código.
Yo que tu, en vez de emplear tantas variables de tipo string usaría un array:

Código Delphi [-]
type
TCampos = array [1..20] of string;

var
Campos: TCampos;
begin
Campos[1]:= '00001';
Campos[2]:= '12900';
....
end;

En cuanto a lo de completar con ceros, no lo entendí muy bien, por favor explícate mejor

Salu2