procedura w dynamicznym komponencie

Hm... nurtuje mnie pytanie:
Czy kiedy stworze jakiś komponent dynamicznie, moge np. w jego zdarzeniu OnClick dodać procedurke w stylu ShowMessage('Huraa')

możesz

a moze podpowiesz jak ??

OnClick := JakasTwojaMetoda;

Ha, bardzo śmieszne...
Przecież od razu tak spróbowałem, ale problemem jest komunikat
Gdy dam np. ShowMessage('dsa'); wyskakuje Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

Bo ta procedure musi mieć odpowiednie parametry oraz być częścią jakiejś klasy.

Przeciez napisalem, ze ma byc metoda.

TJakasTamKlasaMozeBycFormatkaAlboCokolwiekInnego = class
public
  procedure MojaMetoda(Sender: TObject);
end;

implementation

procedure TJa...nnego.MojaMetoda(Sender: TObject);
begin
  ShowMessage...
end;

Kurde, chyba jestem tempy ale nie jaże !!!

Zrobiłem tak:

TForm1 = class(TForm)
public
procedure wyswietl(Sender: TObject);
end;

implementation

procedure TForm1.wyswietl(Sender: TObject);
Begin
ShowMessage('hi');
End;

procedure TForm1.button1click(Sender: TObject);
Begin
button2.onClick := wyswietl(nil);
End;

End.

I dalej wyskakuje to samo, a przecież klasą jest TForm1

button2.onClick := wyswietl;

Procedurę traktujesz w tym momencie jak zmienną, a nie jak funkcję.

OK, działa... Wielkie dzięki