Pues el codigo funciona bien, hasta que le das por segunda vez al boton, para que funcione correcto hay que cambiar el bucle FOR por un While quedando así:
Código Delphi
[-]
While (i<=Table1.FieldDefs.Count-1) AND Not Exists Do Begin
Exists:= Table1.Fields[i].FieldName = aFieldName;
Inc(i);
end;
Gracias por la ayuda....