[Yacudzer]

Здравствуйте. Подскажите, как лучше реализовать следующее:
Есть наследник от TShape:

Код:

  TKletka=class(TShape)
  protected
    color:TKletkaColor;
    x,y:Byte;
    procedure SetBrushColor;
  public
   constructor Create(AOwner:TComponent;new_x,new_y:Byte;new_color:tKletkaColor;new_top,new_left,size:integer);
  private
    procedure WMLButDown(var Msg : TWMMouse); message WM_LBUTTONDOWN;
  end;

Далее, пусть есть форма (или другой компонент), которая имеет массив элементов класса TKletka. Хочется следующее. При нажатии мыши (в процедуре WMLButDown) передать форме(или другому владельцу) некоторые свойства (x,y) этого элемента в виде события. Вобщем сделать так, что бы форма знала по какой клетке кликнул пользователь. Как это сделать наиболее корректно с точни зрения ООП?
Спасибо.