Создаю модальное окно, в компонент NextGrid пытаюсь добавить столбцы и не добавляет.

TNextGrid(Form1.FindComponent('NextGrid1')).Columns.Add(TNxIncrementColumn, '#');

NextGrid1.Columns.Add(TNxIncrementColumn, '#');

Getvalue(TForm2);
 
function TForm1.Getvalue(TFormC: TFormClass): String;
var KeyForm: TForm;
 
begin
  KeyForm := TFormC.Create(Application);
  KeyForm.BorderStyle := bsSizeable;
  KeyForm.WindowState := wsNormal;
  KeyForm.Position := poMainFormCenter;
  try
    with KeyForm do begin
      if ShowModal = mrOk then begin
      end;
    end;
  finally
    KeyForm.Free;
  end;
 
end;
 
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  TNextGrid(TForm2.FindComponent('NextGrid1')).Columns.Clear;
  TNextGrid(TForm2.FindComponent('NextGrid1')).Columns.Add(TNxIncrementColumn, '#');
  TNextGrid(TForm2.FindComponent('NextGrid1')).AddRow(5);
end;

      if ShowModal = mrOk then begin   
  TNextGrid(KeyForm.FindComponent('NextGrid1')).Colum  ns.Clear;   
  TNextGrid(KeyForm.FindComponent('NextGrid1')).Colum  ns.Add(TNxIncrementColumn, '#');   
  TNextGrid(KeyForm.FindComponent('NextGrid1')).AddRo  w(5); 
      end;

Button3.ModalResult := mrOk

Button1.ModalResult := mrNone

procedure TForm2.Button1Click(Sender: TObject);
begin
NextGrid1.Columns.Clear;
NextGrid1.Columns.Add(TNxIncrementColumn, '#');
NextGrid1.AddRow(5);
end;

ShowMessage(IntToStr(TNextGrid(Form2.FindComponent('NextGrid1')).Columns.Count ) + ' - ' + IntToStr(TNextGrid(Form2.FindComponent('NextGrid1')).RowCount) );