datentypen in kriterienausdruck unverträglich Access

[Butch87]

Ich füge über Insert Datensätze in eine Accesstabelle

->

SQL-Code:

 Insert Into T_Stammdaten 
(ZaehlPkt, GueltigAb, KdNr, Anrede, Name, Vorname, Strasse, Hausnummer,
 PLZ, Ort, KdNrNetznutzung, VermittlerID, AbgemeldetAm, Abschlag, 
 Telefon)
Values
(:ZaehlPkt, :GueltigAb, :KdNr, :Anrede, :Name, :Vorname, :Strasse, 
 :Hausnummer, :PLZ, :Ort, :KdNrNetznutzung, :VermittlerID, :AbgemeldetAm
 , :Abschlag, :Telefon)

Datentypen der Felder in Access
ZaehlPkt = Longint
GueltigAb = Datum/Uhrzeit
KdNr = Text
Anrede = Text
Name = Text
Vorname = Text
Strasse = Text
Hausnummer = Text
PLZ = Text
Ort = Text
KdNrNetznutzung = Text
VermittlerID = Longint
AbgemeldetAm = Datum
Abschlag = Währung
Telefon = Text

Datentypen der Felder in Delphi

Delphi-Quellcode:

FZaehlPktID     : Longint;
FGueltigAb      : TDate;
FKdNrSwFi       : String;
FAnrede         : String;
FName           : String;
FVorname        : String;
FStrasse        : String;
FHausnummer     : String;
FPLZ            : String;
FOrt            : String;
FKdNrNetznutzung: String;
FVermittlerID   : Longint;
FAbgemeldetAm   : TDate;
FAbschlag       : Currency; 
FTelefon        : String;

hier weise ich den Paramtern dann ihre werte zu und führe die sql aus

Delphi-Quellcode:

for i:= 0 to FStammList.Count -1 do
  begin
    Stamm:= FStammList.Items[i] as TStamm;
    DModMDB.QInsert.Parameters.ParamValues['ZaehlPkt']:= Stamm.ZaehlPktID;
    DModMDB.QInsert.Parameters.ParamValues['GueltigAb']:= Stamm.GueltigAb;
    DModMDB.QInsert.Parameters.ParamValues['KdNr']:= Stamm.KdNRSwFi;
    DModMDB.QInsert.Parameters.ParamValues['Anrede']:= Stamm.Anrede;
    DModMDB.QInsert.Parameters.ParamValues['Name']:= Stamm.Name;
    DModMDB.QInsert.Parameters.ParamValues['Vorname']:= Stamm.Vorname;
    DModMDB.QInsert.Parameters.ParamValues['Strasse']:= Stamm.Strasse;
    DModMDB.QInsert.Parameters.ParamValues['Hausnummer']:= Stamm.Hausnummer;
    DModMDB.QInsert.Parameters.ParamValues['PLZ']:= Stamm.PLZ;
    DModMDB.QInsert.Parameters.ParamValues['Ort']:= Stamm.Ort;
    DModMDB.QInsert.Parameters.ParamValues['KdNrNetznutzung']:= Stamm.KdNrNetznutzung;
    DModMDB.QInsert.Parameters.ParamValues['VermittlerID']:= Stamm.VermittlerID;
    DModMDB.QInsert.Parameters.ParamValues['AbgemeldetAm']:= Stamm.AbgemeldetAm;
    DModMDB.QInsert.Parameters.ParamValues['Abschlag']:= Stamm.Abschlag;
    DModMDB.QInsert.Parameters.ParamValues['Telefon']:= Stamm.Telefon;
    DModMDB.QInsert.ExecSQL;
  end;

der ersten 3 Datensätze, aus der Objectliste, werden in die Tabelle geschrieben. Bei dem 4. kommt
dann die Fehlermeldung!!
Ich bitte um Hilfe!!!