OnClick bei Selfmade Class

[NeoXan]

Delphi-Quellcode:

 
var
 Rondo    : array[1..4 ]     of TRondo;
...

Rondo[1].OnClick := Rondo[1].OnChoose;

Delphi-Quellcode:

type
  TRondo = class (TPanel)
  private
    Fx, Fy, Fr: single;
    Fcol: TColor;
  public
  procedure Init(xx,yy: integer; col:TColor);
  procedure Show;
  procedure OnChoose(Sender: TObject);

  published
  property x   : single read Fx write Fx;
  property y   : single read Fy write Fy;
  property r   : single read Fr write Fr;
  property col : TColor read Fcol write Fcol;
end;

...

procedure TRondo.Show;
var b: Tcolor;
begin
 with frmMain.imgMain.Canvas do
  begin
   Brush.Color := color;
   Ellipse(Round(x-r),Round(y-r),Round(x+r),Round(y+r));
   Brush.Color := b;
  end;
end;

procedure TRondo.OnChoose(Sender: TObject);
begin
ShowMessage('ASF');
end;

...und wenn ich versuche meine Ellipse anzuklicken passiert nischts