Schlüsselspalteninformationen sind ungenügend / inkorrekt

[schof]

Hallo
wenn ich mein Programm aufrufe und per Drag und Drop eine Produktgruppe verschiebe bringt er mir diesen Fehler: "Die Schlüsselspalteninformationen sind ungenügend oder inkorrekt. Es sind zu viele Zeilen von der Aktualisierung betroffen" Er führt jedoch den Edit korrekt aus. Alles ist so abgelaufen wie ich es wollte bis auf die Fehlermeldung ich hab schon im inet gesucht aber nichts gefunden.
Für jede Hilfe bin ich Dankbar. hier noch der code

Delphi-Quellcode:

with MastData.ArticleQry do begin
        Close;
        Sql.Clear;
        SQL.Add('SELECT gruppe1,gruppe2,gruppe3 FROM article WHERE gruppe3 = '+gr);
        Open;
        while not EOF do begin
        MastData.ArticleQry.Edit;
        //showmessage(gr);
        showmessage(MastData.ArticleQry.FieldByName('gruppe2').AsString);
        showmessage(MastData.ArticleQry.FieldByName('gruppe3').AsString);
        MastData.ArticleQry.FieldByName('gruppe2').AsString := dropitem;
        //showmessage(dropitem);
        MastData.ArticleQry.Post;
        next;
        end;
        end;