Taschenrechner Problem: Record, Objekt oder Klassentyp

[Ghostleader]

Also wenn ich jetzt eingebe:

Delphi-Quellcode:

procedure TForm1.ErgebnisClick(Sender: TObject);
var
   Zahl1,Zahl2,Zahl3,Zahl4,Zahl5,Zahl6,Zahl7,Zahl8,Zahl9,Plus,Ergebnis: integer;
begin
Zahl1:= StrtoInt (Self.Zahl1.text);
Zahl2:= StrToInt (Self.Zahl2.text);

Bleibt das Problem dasselbe. Ich hoffe ich hab dich falsch verstanden .
Was meinst du mit Button besser benennen? Ist das Problem nicht dasselbe wenn ich die Buttons jetzt, Button1-9 lassen würde und es dann so aussehen würde:

Delphi-Quellcode:

procedure TForm1.ErgebnisClick(Sender: TObject);
var
   Button1, Button2, Button3, Button4, Button5, Button6, Button7, Button8, Button9, Plus,Ergebnis: integer;
   
begin
Button1:= StrtoInt (Self.Button1.text);
Button2:= StrToInt (Self.Button2.text);
end;

Danke für die schnelle Antwort.
Mfg, Ghostleader