Новое событие в наследнике от TShape

[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) этого элемента в виде события. Вобщем сделать так, что бы форма знала по какой клетке кликнул пользователь. Как это сделать наиболее корректно с точни зрения ООП?
Спасибо.

[Stilet]

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;
  Published
    OnMyClick:TNotifyEvent;
  end;

А в обработчике WMLButDown напиши

x:=...
y:=... // Нет хелпа под рукой не помню как там WMMouse работает
if Assigned(OnMyClick) then OnMyClick(Self);

Это вызовет событие прописанное для этого компонента в модуле формы, на которой он кинут.

[Yacudzer]

Stilet, спасибо. Так и сделаю за исключением того, что определю процедурный тип события немного по-другому:

  TKletkaClickEvent=procedure (Sender:TObject;x,y:byte) of object;

А создавать объект, насколько я понял, надо так (прошу подтвердить или опровергнуть и подсказать как правильно):

var
kletki:array of array of TKletka;
procedure KletkaClicked(Sender:TObject;x,y:byte);
...
kletki[i,j].ClickEvent:=KletkaClicked;