Динамическое создание псевдонима БД

[obsession]

доброго времени суток
я пытаюсь создать динамический псевдоним. в нете нашла код и подделала его под себя. прога работает без ошибок на моем компе, а на другом выходит только заставка и проект закрывается(основное окно даже не появляется). не понимаю в чем проблема( очень надеюсь на вашу помощь))) может быть нужны какие-то дополнительные настройки базы или еще чего-нибудь...
вот код динамического создания псевдонима (хотя я не думаю что где то здесь скрывается ошибка)

procedure TForm1.FormActivate(Sender: TObject);
begin
with Session do
begin
ConfigMode := cmSession;
try
AddStandardAlias('tablicaA1',ExtractFilePath(ParamStr(0)) + 'tabl\','PARADOX');
DataSource1.DataSet:=table1;
Table1.DatabaseName:='tablicaA1';
Table1.TableName:='tablA1.db';
finally
ConfigMode := cmAll;
end;
end;

[Serge_Bliznykov]

на том комьютере, где не работает, BDE не забыли установить?!