Ошибка при запуске моей процедуры

[evg_m]

Вар1. сделать данную процедуру МЕТОДОМ соответствующего класса(формы), той где есть ЭТОТ SG.

TFMSpravochniki =class(TForm)
 
SG: TStringGrid;

private
  procedure InsSprModeleyartridgey();

end;

procedure TFMSpravochniki.InsSprModeleyartridgey();

Вар 2. (смотри дополнения Выше)

В обоих случаях надо УБРАТЬ соответствующую локальную переменную.

[edsjeka]

Спасибо! Получилось.

[edsjeka]

Сообщение от Iron Monk

Это всё зачем?

    DataModule1.SQLConnection1.Connected:=false;
    DataModule1.SQLQuery1.Close;
    DataModule1.ClientDataSet2.Active:=false;

...
    DataModule1.SQLConnection1.Connected:=true;
    DataModule1.SQLQuery1.Active:=true;
    DataModule1.ClientDataSet2.Active:=true;

DataModule1.SQLQuery1.Open не достаточно?

А Вы спрашиваете или утверждаете? Попробовал только DataModule1.SQLQuery1.Open, информация не обновляется, нужно последовательно все эти компоненты закрывать, а потом открывать.