DBGrid zeigt doppelte Werte

Croatiancow

Ave,

Ich benutze ein DBGrid1 um mir die Gewünschten Spalten einer Tabelle anzeigen zu lassen. In einer 2. Form Schreibe ich die Daten in die Tabelle. Es klappt ja auch ganz gut nur mich stört da so ne Sache. Wenn ich die Tabelle komplett leere und einen neuen Datesatz mit Append() anhänge schreib er wie erwartet die Werte in die Tabell jedoch zeigt mir das DBGrid1 den gleichen Datensatz nochmal. Obwohl er nicht existiert. Das geschieht immer nur beim erstellen. Egal ob die Tabelle leer ist oder schon Daten dastehen. Ich weiss nicht wieso. Wenn ich das Programm beende und mir die Tabellen anschaue dann sehe ich nur den richtigen Eintrag. Der doppelte Eintrag wurde also nicht in die Tabelle geschrieben.
Was bringt denn die DBGrid dazu? Hab Die DBGrid auch schon mehrmals Enabled und Disabled aber trotzdem ändert sich nix. Refresh() bringt auch nix.

Der Button zum Übernehmen der Daten hat sieht so aus:

Form1->Table1->Append();
        Form1->Table1->FieldValues["artcode"]= StrToInt(Edit1->Text);
        Form1->Table1->FieldValues["artname"]= Edit2->Text;
        Form1->Table1->FieldValues["artprice"]=StrToFloat(Edit3->Text); ;
        Form1->Table1->FieldValues["artstorage"]= StrToInt(Edit4->Text);
        Form1->Table1->FieldValues["artamount"]=StrToFloat(Edit5->Text);
        if(Radio1->Checked)
                Form1->Table1->FieldValues["artconalc"]= true;
        else
                Form1->Table1->FieldValues["artconalc"]=false;

        Form1->Table1->ApplyUpdates();
        if(Form1->Button1->Enabled!=true)
                Form1->Button->Enabled=true;
        clean(); //Funktion Löscht alle Werte der Textfelder

        Edit1->Text="0"

Ich weiss das die BDE Tot ist und ich schon lange umsteigen sollte. Ich verspreche we nn ich dieses kleine Projekt fertig hab steige ich um auf SQL.