Willst du viele Buttons auf eine Methode laufen lassen willst, dann nimm besser Tags dafür, die natürlich von Hand vergeben werden müssen.
Delphi-Quellcode:
case TButton(Sender).Tag of
0 : result := 'ein schöner Tag';
1 : Result := 'ein wundervoller Tag';
end;
PS: Nicht Tag und Tag verwechseln
