TButton1-X gleiche Funktionalität

[Andi1985]

Hallo,

ich bin noch ein ziemlicher Anfänger in Delphi, deswegen frag ich bei meinem folgenden Problem hier nach:

Ich habe eine Procedure für einen Button geschrieben(siehe unten), dies ist noch nichts Tolles, aber
nun besitzt mein Program geschlage 50 Buttons davon welche die gleiche Funktionaliät dieses Buttons
übernehmen sollen.

Wie man sehen kann zählt der Button beim Klick einen Zähler hoch, nun soll dies
aber bei allen 50 Buttons geschehen, aber nur wenn man auf den jeweiligen Button klickt.

Vielen Dank für eventuelle Hilfe,
mfg Mogtar

Delphi-Quellcode:

procedure TForm8.Button1Click(Sender: TObject);
begin
  if (Button1.Caption <> '') then
    begin
    if (StrToInt(Button1.Caption) < 9) OR (Button1.Caption = '') then
      begin
        Button1.Caption := IntToStr(StrToInt(Button1.Caption) + 1);
      end
    else
      begin
        Button1.Caption := '';
      end;
    end
  else
    begin
      Button1.Caption := '0';
  end;
end;