Visible формы. Откуда show

[AK BULLETS]

procedure TForm_OSNOVA.FormCreate(Sender: TObject);
begin
  //Form_PROGRESS.show;
  //Form_PROGRESS.Caption:='Îòêðûòèå ôîðìû "Îáúåêòû"! Æäèòå!';
  ID:='0';
  OPEN_LIST();
  OPEN_GRID();
  //Form_PROGRESS.Close;
end;

В процедуре OPEN_LIST я открываю ADOquery, которые находится на Form_OANOVA

PROCEDURE TForm_OSNOVA.OPEN_LIST();
begin
  WITH Form_OSNOVA do begin
    ADOQ_OBJ_TIP.Close;
    ADOQ_OBJ_TIP.SQL.Text:='SELECT ID, OBJ_TIP FROM SPR_OBJ_TIP';
    ADOQ_OBJ_TIP.Open;

на ADOQ_OBJ_TIP.SQL.Text:='SELECT ID, OBJ_TIP FROM SPR_OBJ_TIP';

появляется ошибка.

Если всё перетащить в процедуру Form_OSNOVA.onshow. Всё работает.

[Баламут]

Можно, конечно, и над формами издеваться. Но на мой взгляд, лучше все компоненты ADO расположить в Datamodule, а его создавать до создания форм. Т.е. в проекте это будет выглядеть так:

Application.Initialize;
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(TForm_START, Form_START);
Application.CreateForm(TForm_OSNOVA , Form_OSNOVA); - тут код
Application.CreateForm(TForm_SPR_FI LIAL, Form_SPR_FILIAL); - тут ошибка
Application.CreateForm(TForm_SPR_OB J_TIP, Form_SPR_OBJ_TIP);
Application.CreateForm(TForm_SPR_RA ZDEL, Form_SPR_RAZDEL);

Теперь можно вытворять с формами все, что угодно.

[evg_m]

PROCEDURE TForm_OSNOVA.OPEN_LIST();
begin
  WITH Form_OSNOVA do begin
    ADOQ_OBJ_TIP.Close;
    ADOQ_OBJ_TIP.SQL.Text:='SELECT ID, OBJ_TIP FROM SPR_OBJ_TIP';
    ADOQ_OBJ_TIP.Open;

что подсказывает что здесь использованы объекты этой формыForm_SPR_OBJ_TIP которая согласно

Application.CreateForm(TForm_SPR_FI LIAL, Form_SPR_FILIAL); - тут ошибка
Application.CreateForm(TForm_SPR_OB J_TIP, Form_SPR_OBJ_TIP);

будет создана ПОСЛЕ стало быть надо поменять строчки местами

[evg_m]

PROCEDURE TForm_OSNOVA.OPEN_LIST();
begin
  WITH Form_OSNOVA do begin
    ADOQ_OBJ_TIP.Close;
    ADOQ_OBJ_TIP.SQL.Text:='SELECT ID, OBJ_TIP FROM SPR_OBJ_TIP';
    ADOQ_OBJ_TIP.Open;

что мне подсказывает, что здесь использованы объекты этой формы Form_SPR_OBJ_TIP, которая согласно

Application.CreateForm(TForm_SPR_FI LIAL, Form_SPR_FILIAL); - тут ошибка
Application.CreateForm(TForm_SPR_OB J_TIP, Form_SPR_OBJ_TIP);

будет создана ПОСЛЕ.
стало быть надо поменять строчки создания форм местами