Commands out of sync

[hirsch]

BITTE Rettet mich....

Ich muss Euch leider nocheinmal belästigen.
Ich habe nun alles durchsucht und keine Lösung gefunden, wenn man danach googelt, kommt zwar was, aber das hat mit meinem Problem nix zu tun.
Der Datenaufbau, eigentlich wie immer, soll heissen, so wie in anderen Projekten auch.

MYConnection<->SQLDataSet4<->SQLProvider4<->CDS4(TClientDataSet)
Ich mache eigentlich nix wie einen EDIT auf den CDS4,
ändere Zellinhalte, einen POST, damits in den SQLDataSet geschrieben wird einen APPLYUPDATES(-1).
und da passiert der Fehler. Verstehe ich nicht, denn das funktioniert doch immer so.

Hatte das auch mal im DF gepostet, und weil es dann mal ging, hab ich es dort abgeschlossen. Fakt ist aber dass es nicht funktioniert.
Was hier im Forum unter dem gleichen Thema steht, ist für meinen Fall leider nicht zutreffend.
Mittlerweile hab ich RAD Studio 2007 schon deinstalliert und wieder komlett neu installiert, und dann alle Updates gemacht.
Hat leider nix geholfen....
Hier nochmal der CodeSchnipsel:

Delphi-Quellcode:

 with DataModul.DataModule1 do
     begin

          with SQLDataset4 do
          begin
               if Active then Active:=False;
               SQL_string:='select ID, DeliveredQty, BruttoGewicht, Nettogewicht, '+
                      'Referenzgewicht, ReferenzStueckzahl '+
                      'from packingstructure where ID='+
                      IntToStr(ID)+'; ';
               CommandText:=SQL_string;
               Active:=True;
               if RecordCount=1 then
               with CDS4 do
               begin
                    Active:=True;
                    Edit;
                    FieldByName('DELIVEREDQTY').Value:=anzahl_ist;
                    FieldByName('BRUTTOGEWICHT').Value:=brutto_e;
                    FieldByName('NETTOGEWICHT').Value:=netto_e;
                    FieldByName('REFERENZGEWICHT').Value:=stueckgewicht;
                    FieldByName('REFERENZSTUECKZAHL').Value:=referenzstueckzahl;
                    FieldbyName('ID').Value:=ID;
                    Post;
                    ApplyUpdates(-1); //<-TDBXError Commands out of sync
               end
               else
               begin
                    ShowMessage('<> 1 Satz');
                    exit;
               end;
               Active:=False;
          end;
      end;

.. Ich werd noch verrückt hier...