Aus TTable etwas löschen Fehlermeldung für Query

[GoTo0815]

Hallo,

folgendes Problem:

Delphi-Quellcode:

 if MessageDlg('Wirklich löschen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    Query_Suchen.active := false; // meine such Query deaktivieren
    Table_Retouren.First;
    For i:= 1 to Table_Retouren.RecordCount -1 do
    begin
     flusher := 0; // flusher ist eine Zahl die im Timer hochgezählt wird um die Datenbank alle zwei  
                      minuten mit fluchbuffers zu schreiben. durch das Setzten auf 0 verhindere ich das 
                      während dieser for Schleife

     if Table_RetourenKunde.Value = Edit7.Text then Table_Retouren.Delete
     else
     begin
      if not Table_Retouren.Eof then Table_Retouren.Next;
     end;

    end;
    if Table_RetourenKunde.Value = Edit7.Text then  Table_Retouren.Delete //eventuell letzten Datensatz 
                                                                            löschen
  end;
  Edit7.Text := '';
  with Query_Suchen do // Such Query wieder aktivieren
     begin
      sql.clear;
      sql.add('SELECT * FROM retouren');
      ParamCheck := true;
      active := true;
      open;
     end;
  Label43.Caption := IntToStr(Query_Suchen.RecordCount);

Mein Problem ist, dass ich nach Durchlauf immer ein EDBEngine Error bekomme Meldung: 'ungültiger Parameter'.

Leider bin ich mit meinem Latein am Ende und hoffe auf Eure Hilfe.

Danke im Voraus

Hendrik