ошибка access violation at address ...

[Yuran]

Здрасте всем. Появилась эта ошибка не знаю откуда. Ничего необычного вроде не делал, а в один прекрасный момоент при компиляции кода она выползла

procedure TForm1.FormActivate(Sender: TObject);
var s:string;
    i:integer;
begin
dtp.Date:=date;
for i:=1 to 200  do
   begin
   ColorField[i,0]:='';
   ColorField[i,1]:='';
   ColorField[i,2]:='';
   end;
s:=dm.QSetupID.AsString; //ошибка здесь
i:=1;

Пожалуйста помогите!
Пробовал копировать дфм из бекапа, close open для query но как только компилятор встречает ссылку на датамодуль вылазит ошибка!

[Yuran]

блин, ну не уже ли никто не знаает где копать?

[evg_m]

1. appication.CreateForm(dm, TMyDataModule);

2. dm:=TMyDataModule.Create(nil);

3. в Project Options добавить в автосоздание форм dm

[Yuran]

Спасибо за вариант. Не помогает!
Заметил что компилятор ругается на ссылку к DM модулю
например

s:=dm.QsetupId.asstring

только в процедуре

procedure TForm1.FormActivate(Sender: TObject);

во всех других процах все нормально компилируется!

Что может быть???

[_SERGEYX_]

Потому, что при активации Form1 dm еще не существует.

[Yuran]

Японский городовой !!!!!!!!!!!!!!!!!!!!!!1

Называется перетренировался!!!

было

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TSetupForm, SetupForm);
  Application.CreateForm(THourForm, HourForm);
  Application.CreateForm(TColorForm, ColorForm);
  Application.CreateForm(TColor2Form, Color2Form);
  Application.CreateForm(TDM, DM);
  Application.Run;
end.

сделал

begin
  Application.Initialize;
  Application.CreateForm(TDM, DM); 
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TSetupForm, SetupForm);
  Application.CreateForm(THourForm, HourForm);
  Application.CreateForm(TColorForm, ColorForm);
  Application.CreateForm(TColor2Form, Color2Form);
  Application.Run;
end.

и все!!! Огромное спасибо! +