[Demonuka]

Есть форма (Form1), на ней панель (Panel1), на панели картинка, загруженная в имэйдж (Image1). Задача- таскать имэйдж по панели. Для этого пересчитываю координаты имэйджа:

Код:

procedure TForm1.ImMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
Po:TPoint;
begin
if dvig=true then begin
Po:=ClientToParent(point(x,y));
  Im[i].Left:=Po.X;
  Im[i].Top:=Po.Y;
  end;
end;

И не работает...