Динамич генерация Компонентов в процессе вып прог Опции

[Shadow]

Привет
-=-=-
Возник новый вопрос
-=-=-=
Допустим точнее не допустим а имееем
поля для вывода рисунка Image1:TImage
внем открывеются файлы с метсом располжениея подземлей
кабеля 6 Кв.  
-=-=-
Могу генерировать новые -=компоненты=- например Panel:Tpanel;
которые будут указывать располжения муфт на этом кабеле
но прородителем Панэлек неполучется поставить Image
все что угодно кроме Image
-=-=
оно и так работает но хотельось бы именно Image
что упростило бы сохранение этих муфт в базе данных
и последующих их вывод
-=-=-=-

[Shadow]

на событие в PopupMenu

Код

procedure TForm7.Add1Click(Sender: TObject);
Var MyPan:Tpanel;

begin
MyPan := TPanel.Create(Image1);
with MyPan do
BEGIN
 Parent :=ScrollBox1; (*** если поставить Parent:=Image1 то не работает ***)
 height := 4;
 width := 4;
 caption := 'M';
 MyPan.Cursor:=crHandPoint;
 MyPan.Color:=clLime;
 left:=wx+Image1.Left;
 top:=wy+Image1.Top;
END;

end;

procedure TForm7.Image1MouseMove(Sender: TObject;
 Shift: TShiftState; X, Y: Integer);
begin
 wx:=x;
 wy:=y;
 StatusBar1.Panels[0].Text:=IntToStr(x);
 StatusBar1.Panels[1].Text:=IntToStr(y);
end;

end.