Вызов процедуры-ошибка

[googl]

Доброго времени суток. Подскажите, пожалуйста:
есть фрейм. В нем написана процедура:

procedure TNewCalcFrame.RoadShow;
var
  colc:integer;
begin
  ADODataSet2.Active:=false;
  RoadList.Clear;
  Visible:=true;
  ADODataSet1.Active:=false;
  ADODataSet1.CommandText:='Select * from Road';
  ADODataSet1.Active:=true;
  ADODataSet1.First;
  for colc := 0 to ADODataSet1.RecordCount-1 do
    begin
      RoadList.Items.Add(ADODataSet1.Fields.Fields[1].asstring);
      RoadList.Items.Objects[colc]:=Pointer(ADODataSet1.Fields.Fields[0].AsInteger);
      ADODataSet1.Next;
    end;
end;

С другой формы вызываю эту процедуру

procedure TNewRoadForm.NewRoad;
begin
  if Trim(NameRoad.Text)<>'' then
    begin
      adoquery1.Active:=false;
      adoquery1.SQL.Text:='insert into Road (road_name) values('+
        chr(39)+NameRoad.Text+chr(39)+')';
      adoquery1.ExecSQL;
      NewCalcFrame.RoadShow;
      NewRoadForm.Close;
    end
    else
    showmessage('Вы не указали название для новой дороги');
end;

Получаю ошибку:

Project Project2.exe raised exception class EAccessViolation with message 'Access violation at address 005E4340 in module 'Project2.exe'. Read of address 00000338'.

Процедура объявлена в Public
Ошибка выскакивает на первой строчке процедуры и так далее
Что не так?

[Stilet]

Надо весь проект смотреть. Вдруг скажем фрейм не создан...

[googl]

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

Надо весь проект смотреть. Вдруг скажем фрейм не создан...

Запускается форма. на ней висит фрейм. на фрейме кнопка, которая открывает другую форму, из которой я и вызываю. все.Кстати, эту же процедуру я вызываю с формы, на которой лежит фрейм и все путем.

[googl]

Решил вызвать ее из формы на которой этот фрейм и лежит:

HomeForm.NewCalcFrame1.RoadShow;

все заработало