Fehler beim Löschen und Einfügen der Datensätzen.

[Luckner]

Hallo,
Habe folgende Routine:

Delphi-Quellcode:

if ButtonStanze.Color = $00FF00 then
  begin
    DataModuleAbhaengikeiten.ZConnectionAbhaengikeiten.Connect;
    DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Close;
    DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.SQL.Clear;
    DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.SQL.Add('SELECT * FROM ARTIKEL_STANZE WHERE ARTIKEL_NR = ' + QuotedStr(EditArtikelNr.Text));
    DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Open;

    if not DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.IsEmpty then
    begin
      ShowMessage('Bin im Teil 1');
      DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Close;
      DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.SQL.Clear;
      DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.SQL.Add('delete FROM ARTIKEL_STANZE WHERE ARTIKEL_NR = ' + QuotedStr(EditArtikelNr.Text));
      DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.ExecSQL;
      DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Close;
      DataModuleAbhaengikeiten.ZConnectionAbhaengikeiten.Disconnect;
    end;

    if EditStanzeNr.Text <> '' then
    begin
      ShowMessage('Bin im Teil 2');
      DataModuleAbhaengikeiten.ZConnectionAbhaengikeiten.Connect;
      DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Open;
      DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Append;
      ShowMessage('Bin im Teil 3');
      DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_GridSTANZEN_NR.AsInteger:= StrToInt(EditStanzeNr.Text);
      DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_GridARTIKEL_NR.AsInteger:= StrToInt(EditArtikelNr.Text);

      DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Post;
      ShowMessage('Bin im Teil 4');
      DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Close;
      DataModuleAbhaengikeiten.ZConnectionAbhaengikeiten.Disconnect;
    end;
  end;

folgendes geschieht:
1) Wenn in dieser Tabelle kein Eintrag existiert, wird ein Datensatz eigefügt und Routine läuft über 'ShowMessage 2 bis 4 ohne Probleme.
2)Wenn in dieser Tabelle ein Eintrag existiert, wird dieser gelöscht (sehe ich direkt in der Tabelle) 'ShowMessage 1, 2 und Routine ergibt einen Fehler:
'Projekt Stanzen hat Exception-Klasse ausgelöst mit der Meldung: Can not open a Resultset'.
3) Da im Punkt 2) der Eintrag gelöscht wurde, ist ein nochmaliger Aufruf dieser Routine wieder ohne Fehler (wie beim Punkt 1).
Und so im Kreis. Woran liegt es, dass nach direktem Löschen eine Eintrages, kein Append funktioniert?

Habe schon in einem anderem entsprechendem Forum auch diese Fehlermeldung beschrieben, mit den Antworten, dass es unter SQL kein Append gibt und weil das Dataset mit einem DBGrid in Verbindung steht.
Habe diese Routine ebenfalls unter Delphi nachgebaut und dort funktioniert sie ohne Probleme.
Diese Fehlermeldung komt auch von einer ZEOS-Subroutine.

Gruß, Luckner