Für's nächste mal kannst du die Buttons zur Laufzeit erstellen.
Delphi-Quellcode:
var
MyButtons: Array[0..143] of TBitBtn;
{...}
for i := 0 to 143 do
begin
MyButtons[i] := TBitBtn.Create (Self);
MyButtons[i].Tag := i;
MyButtons[i].OnClick := MyButtonClickEventHandler;
end;
{...}
In dem Eventhandler kannst du dann per Typecast "(Sender as TBitBtn).Tag" herausfinden, welcher Button geklickt wurde und entsprechend reagieren.
