TButton1-X gleiche Funktionalität

[SaFu]

oder du schreibst ne eigene Procedure

Delphi-Quellcode:

procedure TForm8.ueberall(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;

und fügst sie in jedem button ein

Delphi-Quellcode:

procedure TForm8.Button1......50(Sender: TObject);
begin
 ueberall
end;

Gruss sascha