[NIch]

Если это рисунок, то привязку проще всего сделать по координатам...
Расчитай их и на событие OnMouseDown обрабатывай...
Расчитать можно очень просто так:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ShowMessage('X= '+IntToStr(X)+'  Y= '+IntToStr(Y));
end;