Du könntest jedem Button dem Tag die Nr. zuweisen und dann einen Eventhandler für alle ButtonClicks machen. In dem liest du dann den Tag aus.
Delphi-Quellcode:
procedure TForm1.MyEventHandler(Sender: TObject);
begin
Label4.Caption := IntToStr((Sender as TButton).Tag);
end;
...
Button1.Click := MyEventHandler;
MfG
freak