[bragol]

все работает большое спасибо, моя ошибка была в том, что я form1.Table1.Active:=False; устанавливал в ручную и думал, что это достаточно, а сейчас добавил

GetStr := Edit1.Text;
for i:=1 to 9 do Delete (GetStr, Length(GetStr),1);
form1.Table1.Active:=False;
Form1.Query1.Active:=false;
Form1.Table1.DatabaseName:=GetStr;
Form1.Query1.DatabaseName:=GetStr;
Form1.Query1.Active:=true;
Form1.Table1.Active:=true;

и все заработало