Aus TTable etwas löschen Fehlermeldung für Query

[GoTo0815]

Delphi-Quellcode:

 if MessageDlg('Wirklich löschen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    flusher := 0; // verhindern dass durch den Timer die Datenbank geschrieben wird
    BitBtn6.SetFocus;
    with Query_Suchen do
     begin
      sql.clear;
      sql.add('delete from retouren where Kunde = :Kunde');
      ParamCheck := true;
      ParamByName ('Kunde').AsString := Edit7.Text;
      ExecSQL;
     end;
  end;
  Table_Retouren.Refresh;
  Label43.Caption := IntToStr(Query_Suchen.RecordCount);

Jetz bekomme ich die Meldung: Operation bei geschlossener Datenbank nicht möglich.