Hallo
nahpets hat ja schon einiges genannt,
wenn Du jetzt noch "alle" Berechnungen in Deine Kinoklasse bringst, wird es schon besser.
Also diese Zeilen:
Delphi-Quellcode:
Kinokarten.ZwSu:=Kinokarten.PreisR[Rang1] + Kinokarten.PreisR[Rang2] + Kinokarten.PreisR[Rang3];
Kinokarten.MWSt:=Kinokarten.ZwSu * MWSt;
Kinokarten.Preis:=Kinokarten.ZwSu+Kinokarten.MWSt;
Berechnungen gehören in die Klasse und nicht in das Formular