[Alegun]

Сообщение от lmikle

Да, упустил...

А можно и так

Код:

procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
 s: TImage absolute Sender;
begin
 if Flag then
  s.SetBounds(s.Left+X-x0, s.Top+Y-y0, s.Width, s.Height);
end;