wywołanie procedury(Sender : TObject)

Mam tak problem:

W dynamicznym Popupie przypisalem do zdarzenia onClick procedure "click".
Procedura "click" jest typu (Sender TObject). Chciałbym ją wywołać w innej procedurze ale nie wiem jak.
Sposób z przypisaniem własnej procedury do "click(Sender TObject)" i wykorzystaniem tej własnej w innej procedurze odpada gdyż korzystam z polecenia "z:=(Sender:TObject).Caption;" tymsamym więc procedura musi być typu (Sender:TObject);

Jaśli ktoś wie jak to zrobić z góry dziękuje !!!!

Zwyczajnie ;) . W innej procedurze piszesz

click(Sender)

:]

with DynamicznyPopup do
  if Assigned(OnClick) then OnClick(this);

Click(Nil);

Może to coś pomoże :)

(Sender as TMenuItem).onClick ........ lub
TMenuItem(Sender).onClick

jak to wykorzystasz.... nie wiem :D