Feld an den Anfang einer Tabelle hinzufügen

[DBman]

Nein ich will das ja nicht in der Datenbankoberfläche machen das soll ja automatisiert werden und Paradox trete ich auch nich in die Tonne....
Habe mir dazu folgendes überlegt:

Ich könnte eine neue Tabelle erzeugen mit der 1.Spalte "Zaehler" , Typ AutoInc.

Dann füge ich den Inhalt von Table1 dieser neuen Table2 hinzu , so dass ich eine neue Tabelle habe mit der 1. Spalte Zaehler.

Delphi-Quellcode:

begin
 with Table2 do
 begin
 Active := false;

 DatabaseName := 'STM';
 TableType := ttParadox;
 TableName := 'mitZaehler';

  { Dann die Felder in der Tabelle beschreiben }
  with FieldDefs do begin
    Clear;
      with AddFieldDef do begin
        Name := 'Zaehler';
        DataType := ftAutoInc;      //Erzeugen eines Zählerfeldes
        Required := True;
       end;
  end;
   CreateTable;

 end;
table2.AddIndex('','Zaehler',[ixPrimary]);
table1.open;
table2.open;
 Batchmove.Mode:=batAppend;
 Batchmove.Execute;           ///<-- Hier tritt der Fehler auf
table1.close;
table2.close;

..Allerdings tritt dabei der Fehler bei Batchmove.Execute auf:
Übersetzungsfehler , Wert liegt nicht im gültigen Bereich...

Ich könnte mir nur vorstellen , dass rumgemeckert wird , weil die Zaehlerspalte ja quasi leer ist( obwohl AutoInc füllt sich doch dann eigentlich automatisch oder?)

Hm vielleicht weiss ja jemand weshalb der Fehler da kommt..