Komponenty, jedno zdarzenie dwie klasy?

Ave, pisze sobie komponent, składa się on z dwóch klas, klasy głównego (TComponent) oraz klasy TThread, teraz w poziomu wątku, chciałbym wygenerować zdarzenie w klasie głównej, jak to zrobić. Np. mam zdarzenie OnFind, w klasie głównej, i teraz wątek znalazł powiedzmy szukany ciąg znaków i teraz w myśl zasady musi to zakomunikować i tu stypa. Świata mi coś z przesyłaniem komunikatu, ale to raczej takie rozwiązania improwizowane.

Możesz zrobić to mniej wiecej w ten sposób:

  TMyThread: class(TThread)
    MyComponent: TMyComponent;

  TMyComponent = class(TComponent)
    Thread: TMyThread;

//gdzieś w metodzie TMyThread
  MyComponent.JakasProc;
//czy
  MyComponent.JakisEvent;

Jeżeli to o to ci chodzi