Automatische Felder in der Access-DB erzeugen

[m-werk]

Hi, ist der Code nun richtig?

Code:

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

Wenn ich jetzt den Button klicke, dann kommt folgende Fehlermeldung:
Zugriffsverletzung bei Adresse 004FE3E7 in Modul 'Kundenverwaltung.exe'. Lesen von Adresse 00000000.

Ich hab mir auch die Datenbank dann angesehen, und hab aber keine Felder gefunden, die neu sein sollten.