Delphi TQuery не открывается БД

[Sazary]

Доброго времени суток.

С помощью TTable создаю базу (dBase) рядом с экзешником программы:

Form1.Table1.DatabaseName:= ExtractFilePath(Application.ExeName);
  Form1.Table1.TableName:='test';
  Form1.Table1.TableType := ttDBase;
  with Form1.Table1.FieldDefs do
   begin
     // тут добавляю поля
   end;
  Form1.Table1.CreateTable;
  Form1.Table1.Close;

// дальше открываю ее и импортирую данные из нескольких файлов

После этого хочу открыть ее в TQuery и послать sql-запрос, чтобы вывести в TDBGrid данные по определенным критериям:

procedure load;
begin
 Form1.Query1.EnableControls;
 Form1.DataSource1.Enabled := true;
 Form1.Query1.DatabaseName := ExtractFilePath(Application.ExeName);

 Form1.DataSource1.DataSet:=Form1.Query1;
 Form1.DBGrid1.DataSource:=Form1.DataSource1;

 Form1.Query1.Close;
 Form1.Query1.SQL.Clear;
 Form1.Query1.SQL.Add('Select * from test.dbf');
 Form1.Query1.Open;

end;

Но в гриде пусто. Никаких ошибок не выводит. Когда вывожу в TTable, то все показывает.
Чего ему еще надо?

[shodlik]

load где то выполняется или нет

[artemavd]

Нет, тут надо еще кое что сделать. Смотри, когда ты переключаешь на Query, то ты должен и другие два компонента DataSource и DBGrid настроить на него. Вот так:

 Form1.DataSource1.DataSource:=Form1.Query1;
 Form1.DBGrid1.DataSource:=Form1.DataSource1;

как-то так. Если словесно пояснить, то получается, что мы DBGrid настроили на DataSource, который в свою очередь перенастроили на Query.

[Sparkman]

Еще, перед тем как переключать источник данных, нужно все делать неактивным (disabled), а потом обратно - активным (enabled)

[Sazary]

artemavd, так ведь это уже там есть )

Проблему решил. Она, как оказалось, была в другом месте. Даже как-то и говорить немного стыдно
Прав оказался shodlik. Из-за косяка в другой функции load не вызывалась. Обычно не допускаю такого рода ошибок, поэтому и не обратил внимания.

Всем спасибо за участие )