BDE error $2501

[Aiden]

есть программка которая связывается с БД с помощью такого кода:

        Table1.TableName:=extractfilepath(Application.ExeName)+'db\base.dbf';
        Table1.Filter:='id='+arr[0] +' and user='''+Edit1.Text+'''';
        Table1.Filtered:=true;
        Table1.Active:=true;
        if Table1.recordcount>0 then Table1.Edit
        else begin
          Table1.Insert;
          Table1.Edit;
        end;
        Table1.Fields.Fields[0].Value:=StrToInt(arr[0]);
        [skip];
        Table1.Post;
        Table1.Active:=false;
        Table1.Close;

Все в принципе нормально, код работает, ошибок не возникает. Проблема возникает при запуске еще одного экземпляра программы. При попытке подключения, на строке

Table1.Active:=true;

возникает ошибка инициализации BDE с номером $2501.
Самое интересное - достаточно скопировать программу в другую папку и скомпилировать этот код по новой - все отлично работает. К сожалению такой вариант не подходит т.к. бухгалтера постоянно путаю где чей эксешник и подымают панику.

Возможно ли решить данную проблему другим способом?

[artemavd]

тырк 1 тырк 2