Oprettelse af Events

jeg har:

private
procedure onRBClick(sender : TObject; rb : TRadioButton);

procedure TForm1.onRBClick(sender : TObject; rb : TRadioButton);
begin
//showmessage(rb.caption);
end;

jeg kalder den så med
myradiobutton.OnClick := onRBClick(self, myradiobutton);

Det virker ikke - den kommer med følgende fejl meddelelse.

[Error] form.pas(74): Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'


Men, hvis jeg har min procedure som følger:

private
procedure onRBClick(sender : TObject);

procedure TForm1.onRBClick(sender : TObject);
begin
//showmessage(self.Caption);
end;

og tildeler den sådan her:
myradiobutton.OnClick := onRBClick;

så virker det fint. Det er så snart jeg forsøger at få objektet med over. Jeg skal bruge nogle opl. fra det objekt, der kan evt. være andre måder jeg kan få fat i det (uden at vide at den hedder myradiobutton, da det skal være et dynamisk array på et tidspunkt)

minder måske lidt om denne her: http://www.eksperten.dk/spm/212552