Asignar Evento OnClick en forma dinamica en tiempo de ejecucion

[[cHackAll]]

Código Delphi [-]
procedure TForm1.StaticTextClick(Sender: TObject);
begin
 ((Sender as TStaticText).Parent as TPanel).OnClick(Sender);
end;

//...

 TStaticText(Components[a]).OnClick := StaticTextClick;

//...