Automatische Felder in der Access-DB erzeugen

[m-werk]

Hi, ich komm einfach nicht dahinter:

Code:

procedure TForm1.Button1Click(Sender: TObject);
const
   FeldName : array[1..4] of String = ('Rueckzahlung', 'Kreditwaehrung', 'Zinssatz1', 'Zinssatzgebunden');
   var i : Integer;
begin
  for i := 1 to 4 do
  begin
    if Not DataModule2.ADOSFinanzierung.FindField(FeldName[i]) then
    begin
       DataModule2.ADOQuery1.Close;
       DataModule2.ADOQuery1.SQL.Clear;
       DataModule2.ADOQuery1.SQL.Add(InsertStr[i]);
       DataModule2.ADOQuery1.ExecSQL
     end;
   end;
end;

So sieht jetzt mein code aus.

Nun kommen aber wieder folgende Fehlermeldungen:
[Fehler] DBUpdate.pas(42): Operator ist auf diesen Operandentyp nicht anwendbar
Dies kommt bei der zeile:
if Not DataModule2.ADOSFinanzierung.FindField(FeldName[i]) then

[Fehler] DBUpdate.pas(46): Undefinierter Bezeichner: 'InsertStr'

Was ist da jetzt noch los?