Problem mit Paradox-Datenbank

[CAR]

Hallo Leute,

ich habe folgendes Problem:

Wenn ich eine Paradox-DB erstelle mit folgendem Code:

Delphi-Quellcode:

with Table1 do begin
                TableName:='pics';  // Name der Datei, die erzeugt werden soll
                with FieldDefs do begin
                        clear;
                        Add('id', ftAutoInc, 0, false);
                        Add('raceid', ftinteger);
                        Add('url', ftString, 255, false); 
                end;
                with IndexDefs do begin
                        Clear;
                        with AddIndexDef do begin
                                Name := '';
                                Fields := 'id';
                                Options := [ixPrimary];
                        end;
                end;
                CreateTable;
end;

Dann funktioniert danach das einfügen der Daten nicht mehr. Es kommt immer der Fehler "Datenbank schon geöffnet oder nicht im Einfügemodus". Hier der Code den ich zum Einfügen der Daten benutze:

Delphi-Quellcode:

var i,j:integer;
begin
        with Table2 do
        begin
                Close;
                DatabaseName:=urldb;
                TableType:=ttParadox;
                TableName:='pics';
                Active:=False;
                Open;
                Append;
                for i:=1 to 3 do
                begin
                        for j:=1 to 6 do
                        begin
                                FieldValues['raceid'] := i;
                                FieldValues['url'] := urlraces+inttostr(i)+'_'+inttostr(j)+'.jpg';
                                Post;
                        end;
                end;
        end;
end;

Weiß jemand wie ich diesen Fehler wegbekomme?

MfG
CAR