#20 schon gesehen?
Ich ergänze das noch. Jedem eurer 15 Buttons im Obejekt-Inspektor noch den entsprechenden Wert (1-15) in der Eigenschaft Tag eintragen und im OnClick-Ereignis folgende (noch zu erstellende) Prozedur eintragen: "AllButtonClick".
Die könnte dann so aussehen:
Delphi-Quellcode:
TForm1.AllButtonClick(Sender:TObject)
begin
if Sender is TButton then
NoteHinzu(TButton(Sender).Tag);
end;