ExcelApp.Workbooks.Open(dateiname);
  dmkunden.tblkundendaten.Connection.StartTransaction;
  if not (dmkunden.tblkundendaten.State in [dsInsert]) then
        dmkunden.tblkundendaten.Insert; //das zumindest macht er

  try
  begin
       
        dmkunden.tblkundendatenanrede.AsString     := ExcelApp.Cells[5, iPers].Value;
        dmkunden.tblkundendatentitel.AsString      := ExcelApp.Cells[6, iPers].Value;
        dmkunden.tblkundendatennachname.AsString   := ExcelApp.Cells[7, iPers].Value;
        dmkunden.tblkundendatengeburtsname.AsString := ExcelApp.Cells[8, iPers].Value;
        //weitere Zuweisungen
  end;

  if dmkunden.tblkundendaten.State in [dsInsert] then dmkunden.tblkundendaten.Post;
 
  //^^State = dsInsert(!) und daher will er den Post ausführen und hierbei erscheint die im Betreff genannte Fehlermeldung.
     
  dmkunden.tblkundendaten.Connection.Commit;
  result:=true;
  [...]