[gewasop]

Попробовал. Получаю ошибку.

Когда делаю только...

Код:

if not Assigned(TestQuery) Then 
TestQuery := TestQuery.Create(Nil);
if not Assigned(TestDataSource) Then 
TestDataSource := TestDataSource.Create(Nil);

...ничего не наблюдаю(компоненты ведь не визуальные). Вот и решил проверить:

Код:

var
  fcr_tb: Tfcr_tb;
    TestQuery : TFDQuery=nil;
    TestDataSource : TDataSource=nil;

procedure Tfcr_tb.Button1Click(Sender: TObject);
begin
if not Assigned(TestQuery) Then TestQuery := TFDQuery.Create(Nil);
if not Assigned(TestDataSource) Then TestDataSource := TDataSource.Create(Nil);
TestQuery.Connection := fdm.FDConnection1;
TestQuery.SQL.Add('SELECT * FROM MASTERS');
TestQuery.Active := True;
TestDataSource.DataSet := TestQuery;
DBGrid1.DataSource := TestDataSource;
end;