Ostatni TNotifyEvent

czy mozna jakos okreslic jaki TNotifyEvent byl wykonany ostatnio?
chcialem zrobic petle z ostatnio wykonywana procedura, mam dosc duzo ich w programie i wolalbym uniknac dopisywanie do kazdej identyfikujacego ja integera

Var Z:TNotifyEvent;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Z:=Button1Click;
  ShowMessage('Button1');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Z:=Button2Click;
  ShowMessage('Button2');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Z(Self);
end;

no w sumie racja, nie pomyslalem o tym .. dzieki