Problem z tworzeniem bazy BDE

Witam
Mam problem podczas tworzenia nowej bazy. Poniżej znajduje się kawałek
kodu który odpowiada za utworzenie nowej bazy danych. Wszystko działało
prawidłowo, niestety musiałem przeinstalować system (Vista). Po ponownym
zainstalowaniu Delphi okazało się ze podczas pracy programu jak wywołuje
procedurę która powinna utworzyć nową bazę wywala mi błąd:'Table: Cannot
perform this operation on an open dataset'. Kliknę OK, baza się utworzy
i normalnie mogę dodawać rekordy...
Co może być przyczyną tego błędu? Co zrobić żeby się nie pojawiał?
Szukałem na google ale nie znalazłem odpowiedzi. :-(
...

f1.Table.DatabaseName := CDBName;
f1.Table.TableType := ttParadox;
f1.Table.TableName := CTBName;

if not f1.Table.Exists then
begin
with f1.Table.FieldDefs do
begin
Clear;
with AddFieldDef do
begin
Name := cp1;
DataType := ftString;
Size := 100;
Required := True;
end;

  with AddFieldDef do
  begin
    Name := cp2;
    DataType := ftFmtMemo
  end;
  with AddFieldDef do
  begin
    Name := cp3;
    DataType := ftString;
    Required := True;
  end;
end;

with f1.table do
begin
   with IndexDefs do
   begin
   Clear;
   Add('', cp1, [ixPrimary, ixUnique]);
   end;
end;

end;

{ utwórz tabele }

f1.Table.CreateTable;

f1.Table.Active;

...