TVirtaulTable will kein Append

[franktron]

Ich habe ein TVirtualTable das ich über TMyQuery fülle, das klappt auch Edit klappt auch nur Append und Insert gehen nicht State Springt dann auf dsBrowse was mache ich falsch

Delphi-Quellcode:

IndexFieldNames:='nr';
        Filtered:=False;
        Last;
        i:=FieldByName('nr').AsInteger+1;
        If i=0 then i:=1;

        Append; <<state ist dsBrowse
        FieldByName('nr').AsInteger:=i; <<  Error nicht im einfüge oder Edit Modus
        FieldByName('loeschen').AsInteger:=0;
        Post;
        Filtered:=True;