Дык я ж там ответил. В чем проблема?
Обработчик - это метод класса с определенной сигнатурой. Просто сделай нужные методы и вперед.
Код:
type
TForm1 = class(TForm)
...
procedure MyClick(Sender : TObject);
end;
...
procedure TForm1.MyClick(Sender : TObject);
begin
...
end;
...
begin
Panel1.OnClick := MyClick;
Panel2.OnClick := MyClick;
Button1.OnClick := MyClick;
...