Checkbox

[Noris]

Hallo,
ich habe (wieder) ein Problem...
Hier ist es:

Was muss ich schreiben, wenn ich möchte, das er bevor er eine Rechnung in einer Procedure durchführt zuerst kontrolliert ob eine oder mehrere Checkboxen angeklickt sind oder nicht?
UNd falls ja..
Was muss ich schreiben, damit er in der Rechnung die Action der Checkbox mit ausfürhrt (in dem Falle soll eine Preis berechnet werden. UNd wenn eine bzw. mehrere Checkboxen aktiviert sind soll ein Wert abgezogen werden...

Hier der COde:

Delphi-Quellcode:

Unit uRechnung;

type
   TRechnung = class
         private
           ZaehlerAlt,
           ZaehlerNeu,
           Verbrauch     : integer;
           PreisJeWoche,
           BVP           : real;
           Wagentyp : boolean;
           Verzicht : boolean;


 public
           procedure init;
           procedure SetZaehlerAlt ( za: integer);     virtual;
           procedure SetZaehlerNeu ( zn: integer);     virtual;
           function  GetZaehlerAlt   : integer;        virtual;
           function  GetZaehlerNeu   : integer;        virtual;
           function  GetVerbrauch    : integer;        virtual;
           function  GetPreisJeWoche : real;           virtual;
           function  GetBVP          : real;           virtual;


           function  EingabeOk       : boolean;        virtual;
           procedure Berechnen;                        virtual;
           procedure KomfortRechnung;                   virtual;
           procedure SetWagentyp (wt : boolean);
           procedure BetaRechnung; virtual;
           procedure GetVerzicht (vz: boolean); virtual;


function TRechnung.EingabeOk : boolean;
(* -------------------------------------------------------------------- *)
begin
  if ZaehlerAlt > Zaehlerneu
  then
     Result := false
  else
     if ZaehlerAlt < 0
     then Result := false
     else if ZaehlerNeu < 1
          then Result := false
          else Result := true;
end;

procedure TRechnung.Berechnen;
(* -------------------------------------------------------------------- *)
begin
  Verbrauch := ZaehlerNeu - ZaehlerAlt;
  case (Verbrauch) of

       1..3  : PreisJeWoche := 210;
        else PreisJeWoche := 190;


  end; (* case verbrauch *)

  BVP  := Verbrauch * PreisJeWoche;
end; (* TRechnung.Berechnen *)



procedure TRechnung.KomfortRechnung;
(* -------------------------------------------------------------------- *)
begin
  Verbrauch := ZaehlerNeu - ZaehlerAlt;
  case (Verbrauch) of

       1..3  : PreisJeWoche := 250;
        else PreisJeWoche := 220;


  end; (* case verbrauch *)

  BVP  := Verbrauch * PreisJeWoche;
end; (* TRechnung.Berechnen *)

procedure TRechnung.BetaRechnung;
begin
if Wagentyp
then Berechnen
else KomfortRechnung;
end;
[b]
In der Hauptunit:[/b][u]

procedure TCopyShopFenster.OKButtonClick(Sender: TObject);
begin
  Rechnung.Init;
  DatenAktualisieren;
  if Rechnung.EingabeOk
  then begin
         Rechnung.BetaRechnung;
         MaskeAktualisieren;
       end
  else
    showmessage('Falsche Eingaben. Bitte überprüfen Sie Ihre Zahlen!');
end;

ALso, er soll zuerst abchecken ob eine Checkbox aktiviert ist (true) und wenn ja, von dem Preis der pro Woche berechnet wird, den Betrag, der in der Procedure der Checkbox steht, zu subtrahieren..

Könnte mir jemand sagen, was ich alles schreiben müsste?

Bitte genau, da ich noch ein ziemlicher Anfänger bin!

Ich hoffe ihr könnt mir helfen...

MFG N0RiS