Передача события пэренту контрола

[khogi]

Как передать событие (например click) родительскому контролу, при этом не известно какой именно контрол будет родительским для данного ?

[RomCom]

procedure TForm1.Button1Click(Sender: TObject);
begin
 SendMessage(Button1.Parent.Handle,WM_LBUTTONDOWN, 0,0);
 SendMessage(Button1.Parent.Handle,WM_LBUTTONUP, 0,0);
end;