Не могу заставить созданные в runtime компоненты обрабатывать событие:

Есть объект в котором создаются компоненты:

cOkno=object
private
    sp_stage:TList;//Список этих компонетов
public
    procedure CreateAll;
end;

procedure cOkno.CreateAll;
var s1:pTStage; //  видоизмененный TShape
begin
......
    for i:=0 to max do
     begin
          new(s1);
          s1^:=TStage.Create(nil);
          s1.Parent:=pfrmChild.BPanel1;  //pfrmChild - форма в которой они создаются (MDiChild)
          s1.id:=i;
          s1.OnMouseMove:=StageMouseMove;  //<<-- не реагирует
          sp_stage.add(s1);
     end;
.......
end;

Обработчик события пробывал засовывать и в TfrmChild, и в cOkno, все равно не реагирует.