Ошибка памяти EAccessViolation при FormCreate в Delphi 10

[Maxjuvefan]

Здравствуйте, у меня программа на Delphi 10, которая работает с базой данной на sql. При работе программа вылетает и выдает такую ошибку:
Project AMG.exe raised exception class EAccessViolation with message ‘Access violation at address 009AC7D4 in module ‘AMG.exe’. Read of address 000000D0’
Я не могу понять почему два идентичных вызова одного и того же метода приводят к AccessViolation в одном случае (blbRazdel3009Click) и нормальной работе в другом (blbRazdel1009Click).

procedure TMainForm.blbRazdel1009Click(Sender: TObject);
begin
  FreeActiveItem;

  if Razdel1009Form=nil then
    Razdel1009Form:=TRazdel1009Form.Create(Self);
  Razdel1009Form.ManualDock(DockPanel,nil,alClient);
  ActiveForm:=Razdel1009Form;
  ActiveBarButton:=blbRazdel1009;
  ActiveBarButton.Enabled:=false;
  FormResize(Sender);
  Razdel1009Form.Show;
  Razdel1009Form.GROTMGrid.SetFocus;
  Razdel1009Form.GROTMTableView.DataController.SelectRows(0,0);
end;

procedure TMainForm.blbRazdel3009Click(Sender: TObject);
begin
    FreeActiveItem;

    if Razdel11_009Form=nil then
    begin
      Razdel11_009Form:=TForm1.Create(Self);
      Razdel11_009Form.FormCreate(Sender);
    end;

    Razdel11_009Form.ManualDock(DockPanel,nil,alClient);
    ActiveForm:=Razdel11_009Form;
    ActiveBarButton:=blbRazdel3009;
    ActiveBarButton.Enabled:=false;
    FormResize(Sender);
    Razdel11_009Form.Show;
    Razdel11_009Form.GROTMGrid.SetFocus;
    Razdel11_009Form.GROTMTableView.DataController.SelectRows(0,0);
end;

Функция FormCreate:

procedure TForm1.FormCreate(Sender: TObject);
var
  I: integer;
  Info: PRazdel1Info;
begin
  ABDDataModule.GRQuery.Active := false;
  ABDDataModule.GRQuery.Active := true;
  L := TList.Create;

  while not ABDDataModule.GRQuery.Eof do
  begin
    I := GRTableView.DataController.AppendRecord;
    GRTableView.DataController.Values[I, 0] := false;
    GRTableView.DataController.Values[I, 1] :=
      ABDDataModule.GRQuery.FieldByName('name').AsString;
    GRTableView.DataController.Values[I, 2] :=
      ABDDataModule.GRQuery.FieldByName('numer').AsInteger;

Люди добрые, помогите кто чем может

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[northener]

Воспользуйся отладчиком и найди строку, при выполнении которой возникает данное сообщение.
В приведенном коде нет явных причин для "Read of address 000000D0".
Но вот этот код, по крайней мере вызывает недоумение

    if Razdel11_009Form=nil then
    begin
      Razdel11_009Form:=TForm1.Create(Self);
      Razdel11_009Form.FormCreate(Sender);
    end;

[Maxjuvefan]

Сообщение от northener

Воспользуйся отладчиком и найди строку, при выполнении которой возникает данное сообщение.
В приведенном коде нет явных причин для "Read of address 000000D0".
Но вот этот код, по крайней мере вызывает недоумение

    if Razdel11_009Form=nil then
    begin
      Razdel11_009Form:=TForm1.Create(Self);
      Razdel11_009Form.FormCreate(Sender);
    end;

Ошибка вылезает здесь

Razdel11_009Form.GROTMGrid.SetFocus ;

[p51x]

Значит либо Razdel11_009Form, либо GROTMGrid равны nil, т.е. не созданы

[Maxjuvefan]

Сообщение от p51x

Значит либо Razdel11_009Form, либо GROTMGrid равны nil, т.е. не созданы

Как это узнать?

[Аватар]

Razdel11_009Form уничтожается? Если уничтожается, то как?

[p51x]

Поставьте точку останова на это строке и посмотрите.