TButton1-X gleiche Funktionalität

[SaFu]

sorry

so mit deiner Procedur

Delphi-Quellcode:

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