Нужна ваша подсказка! :(

[m0dE^]

...
var Grid: TDBGrid;
     Source: TDataSource;
     Query: TADOQuery;

Вобщем есть такая процедура:

procedure TForm1.NewGrid(aGrid: TDBGrid; aDataSource: TDataSource; aADOQuery: TADOQuery);
begin
  aADOQuery:=TADOQuery.Create(Form1);
  aDataSource:=TDataSource.Create(Form1);
  aGrid:=TDBGrid.Create(Form1);
  aGrid.Parent:=Form1;

  aGrid.DataSource:=aDataSource;
  aDataSource.DataSet:=aADOQuery;
  aADOQuery.Connection:=ADOConnection1;
end;

Происходит какая-то ошибка по нажатию кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
    NewGrid(Grid1, Source1, Query1);
    Query1.Active:=False; //Что-то тут не нравится
end;

Подскажите, пожалуйста, из-за чего и как можно исправить?

[Скандербег]

Ошибка из-за того, что передача компонентов в параметрах "по значению" не приводит к желаемому результату: параметры после возврата из вызванной процедуры не ссылаются на созданные компоненты (значения параметров - nil).
В приведенном случае параметры в объявлении процедуры нужно предварять ключевым словом var (передача параметров "по ссылке").

    procedure NewGrid(var aGrid: TDBGrid; var aDataSource: TDataSource; var aADOQuery: TADOQuery);

P.S. А не заметно, что в объявлении переменных и в вызове процедуры компоненты называются по-разному (Grid и Grid1, ...).

Да, еще. Не понятно из приведенного кода важно это или нет, но устанавливать в только что "испеченном" TADOQuery свойство Active = False не имеет никакого смысла.