Aus TTable etwas löschen Fehlermeldung für Query

[mkinzler]

Der Fehler kommt nicht beim execSql sondern beim Active

Delphi-Quellcode:

if MessageDlg('Wirklich löschen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    with Query_Suchen do
     begin
      sql.Text := 'delete from retouren where Kunde = :Kunde';
      ParamCheck := true;
      ParamByName ('Kunde').AsString := Edit7.Text;
      ExecSQL; // Execute kennt er bei mir nicht. Ich glaube das ist aber das gleiche, oder? Ja!
     end;
  end;
  Label43.Caption := IntToStr(Query_Suchen.RecordCount);