[[cHackAll]]

Código Delphi [-]
procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
// Shape1.Brush.Style = bsClear;        // design time!
// Shape1.Pen.Width = 2;
// Image1.OnMouseMove = ImageMouseMove;
// Image2.OnMouseMove = ImageMouseMove;
// Image3...
 
 Shape1.Top := (Sender as TImage).Top;
 Shape1.Left := (Sender as TImage).Left;
 Shape1.Width := (Sender as TImage).Width;
 Shape1.Height := (Sender as TImage).Height;
end; // OnClick