TButton1-X gleiche Funktionalität

[ibp]

herzlich willkommen....

Delphi-Quellcode:

procedure TForm8.ButtonClick(Sender: TObject); 
var
  aval:integer;
begin 
  if sender is tbutton then
  begin
    aval:=0;

    if (Sender as Tbutton).Caption <> '' then 
    begin
      aval:=StrToInt((Sender as Tbutton).Caption);
      if aval < 9 then
        inc(aval);
    end

    (Sender as Tbutton).Caption:=inttostr(aval);
  end;
end;

und diese prozedur weist du im onclick-ereignis jedem der buttons zu.