TButton1-X gleiche Funktionalität

[Tormentor32]

Über den Parameter Sender, kannst du auf den jeweiligen Button zugreifen, das heißt du schreibst

Delphi-Quellcode:

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

Das musst du jetzt nur noch mit jedem Button verlinken

edit: Zwei Dumme ein Gedanke aber du warst schneller