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.