Отлавливать сообщения от Рунтайм созданных компонентов формы

[100GRamm]

Доброго времени суток! Такая задача: создаю объекты (TImage) на форме в RUN-TIME. В последствии надо отлавливать событие OnDBLClick от этих картинок. Как реализовать обработчик события от еще несозданного компонента - не знаю. Правда, есть мысль: Создать Обработчик че-то типа WM_Control... а в нем перебирать созданные в массиве элементы.... Вот только как это реализовать- ума не приложу?
Попытался создать класс для создания элементов массива, компилятор глотает, но функции TImage.Create(...), почему-то не работают? (Текст далее работает лишь с TYPE RECORD, но для создания проседуры события надо же CLASS?)

type
  IMG= record
  IMAGE:TImage;
  Name:string;
 end;
  var  IMGS:array [0..50] of IMG;


procedure TForm3.Button5Click(Sender: TObject);
var sr:Tsearchrec;  i:integer;  WAY:string;
begin
 way:= extractfilepath(paramstr(0))+'IMPSKIN';
 LBS.Clear;   // это листбокс 
 chdir(way);
 findfirst('*.bmp',faanyfile,sr);
 LBS.Items.Add(sr.Name);
   while findnext(sr)=0 do FSKIN.LBS.Items.Add(sr.Name);
   findclose(sr);
 //for I := 0 to 50 do IMGS[i]:=nil;
 for I := 0 to LBS.Items.Count-1 do
  begin
    IMGS[i].Name:=LBS.Items[i];
    IMGS[i].IMAGE:= TImage.Create(sender);
    IMGS[i].IMAGE.Parent:=SB;     // это скролл бар
    IMGS[i].IMAGE.AutoSize:=true;
    IMGS[i].IMAGE.Picture.LoadFromFile(way+'\'+LBS.Items[i]);
    IMGS[i].IMAGE.Left:=15;
    IMGS[i].IMAGE.Top:=65*i;
  end;
end;

[Человек_Борща]

Тоже самое, что и в disign-time, только указываем обработчик тоже в run-time

procedure TForm1.myOnSmthChange(); //параметры должны соответствовать событию компонента 
begin

end;

procedure TForm1.DoRunTimeComp;
var
  Comp:TMyRTComp;
begin
  Comp:=TmyRTComp.Create(nil);
  Comp.OnSmthChange:=@myOnSmthChange; //Может указатель и не нужен, вечно путаюсь с ними. 
end;

[evg_m]

IMGS[i].IMAGE:= TImage.Create(sender);
лучше IMGS[i].IMAGE:= TImage.Create(self);
IMGS[i].IMAGE.Parent:=SB; // это скролл бар
вы хотите увидеть эти картинки на узенькой полосе ScrollBar?

надо отлавливать событие OnDBLClick от этих картинок. Как реализовать обработчик события от еще несозданного компонента - не знаю.

пишете процедуру (метод) DblImageClick (название может быть любым).

Tform1 =class
.....
protected
   procedure DblImageClick(sender: Tobject);
....
end;

при генерации делаем назначение.
IMGS[i].OnDblClick:=DblImageClick;

procedure Tform1.DblImageClick(sender: TObject);
begin
  (sender as TImage). ... // так узнаем и пользуемся в какой именно картинке (Image) было действие.
end;