Поиск компонента на форме

[Dozent]

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

         with DM[y+1].Query do
          begin
          Close;
          SQL.Clear;
          //Params.AddParam(Params.CreateParam(ftUnknown,'date1',ptInput));
          //ParamByName('date1').AsDate:=TDateTimePicker(Form1.FindComponent('DateTimePicker')).Date;
          SQL.Text:=SqlText;
          for i:=1 to Form1.StringGrid1.RowCount do
              begin
               //Params.AddParam(Params.CreateParam(ftUnknown,'date'+intToStr(i),ptInput));
               ShowMessage(DateToStr(TDateTimePicker(Form1.FindComponent('DateTimePicker'+intToStr(i))).Date));
               //ParamByName('date'+intToStr(i)).AsDate:=TDateTimePicker(Form1.FindComponent('DateTimePicker'+intToStr(i))).Date;
              end;
          //DM[y+1].Trans.Active:=true;
          //Active:=true;
          end;

Создание дататаймпикеров

 If Status='1' then
   begin
    temp:=SqlText;
    rcount:=0;
    While Pos(':', temp)>1 do
      begin
         //ñîçäà¸ì êîìïàíåíò
        Form1.StringGrid1.RowCount:=rcount+1;    // ZAMENA!!!!!!!!!!!
        DateTimePicker:=TDateTimePicker.Create(self);
        DateTimePicker.Parent:=Form1;
        DateTimePicker.Name:='DateTimePicker'+IntTOStr(rcount+1);
       // âñòàâëÿåì
        Form1.StringGrid1.Objects[1, rcount]:=DateTimePicker;
        Form1.StringGrid1.Objects[1, rcount].AfterConstruction;
        R:= Form1.StringGrid1.CellRect(1, rcount);
        if (Form1.StringGrid1.Objects[1, rcount] is TControl) then
        with TControl(Form1.StringGrid1.Objects[1, rcount]) do
        // åñëè ðàçìåð ÿ÷åéêè íå ðàâåí 0, òî äåëàåì åãî íåâèäèìûì
          if R.Right = R.Left then
             Visible:=false
             else
             begin
            // èíà÷å ðèñóåì åãî
              InflateRect(R, -1, -1);
              OffsetRect(R, Form1.StringGrid1.Left+1, Form1.StringGrid1.Top+1);
              BoundsRect:=R;
             // äåëàåì êîìïîíåíò âèäèìûì
             Visible:=true;
            end;
        inc(rcount);
        delete(temp, Pos(':', temp), 1);
      end;

при попытке вывести хотябы значения дататаймпикеров валится, с ошибкой доступа к памяти

ShowMessage(DateToStr(TDateTimePick er(Form1.FindComponent('DateTimePic ker'+intToStr(i))).Date));

Access violation at address 0044858B in module 'UZVS.exe'. Read of address 00000210

[Vova777]

Ошибка чтения данных.
UZVS.exe - возможно модуль не указан в разделе Uses или его нет в папке программы.

[evg_m]

есть датамодуль на котором лежит 4 компанента для подключения к базе,

ищешь не там где положил, а где светлее.

DateTimePicker:=TDateTimePicker.Create(self);

положил в датамодуль

TDateTimePicker(Form1.FindComponent('DateTimePicker'+intToStr(i))).Date)

ищешь на форме

читать про Tcomponent
Tcomponent.Owner
Tcomponent.Components
Tcomponent.Findcomponent
Tcomponent.Create(Aowner: TComponent)

[Dozent]

evg_m, спс за подсказку, положил не в дата модуль а на форму два ибо создание идёт в форме2

 DateTimePicker:=TDateTimePicker.Create(Form1)

работает спс большое