[bragol]

Всем привет!
Пишу программу, использующую собственно базу данных database.
Использую такие компоненты как Table и Query, по началу все было хорошо программа почти завершена, но тут задумался о том, что поменяв свое место расположения путь к базе в свойсвах DatabaseName поменяются, добавил в проект новую форму, для того чтобы перед запуком основной указать путь к файлу базы данных, ниже код:

procedure TForm2.Button1Click(Sender: TObject);
begin
OpenDialog1.FileName := Edit1.Text;//обращаемся сперва к предыдущему файлу

if OpenDialog1.Execute then //открываем окно выбора файла и если он выбран
begin
if not(OpenDialog1.FileName = Edit1.Text) then
Edit1.Text := OpenDialog1.FileName;//запоминаем его
end;

end;

procedure TForm2.Button2Click(Sender: TObject);
begin
if FileExists(Edit1.Text) then //если файл существует
begin
Form1.Table1.DatabaseName:=edit1.Text;

Form1.Query1.DatabaseName:=edit1.Text;
Form1.Query1.Active:=true;
Form1.Table1.Active:=true;
form2.Hide;
form1.Show;
end;
end;

после компиляции натыкался на ряд ошибок меняющихся в зависимости от неких моих действий, но все они были однотипные:

Table1: Cannot perform this operation on an open dataset

Может кто-нибудь подсказать в чем моя ошибка и как лучше реализовать мое желание

ЗЫ Заранее благодарен