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