Kleines Problem mit Grundlagen // Minigame

[shillok]

Danke schonmal für eure beiden schnellen Antworten.
@shmia: da steige ich leider komplett aus sorry!
Ich habe jetzt folgendes:

Delphi-Quellcode:

procedure TForm1.PunkteZaehlenSp1;
var MomentPunkteSp1 : Integer;
begin
                MomentPunkteSp1:=PunkteSpieler1;
                                if Panel_Zahl1.Caption=1
                                  then PunkteSpieler1:=Integer(MomentpunkteSp1+TrefferEinser);
                                if Panel_Zahl2.Caption=1
                                  then PunkteSpieler1:=Integer(MomentpunkteSp1+TrefferEinser);
                                if Panel_Zahl3.Caption=1
                                  then PunkteSpieler1:=Integer(MomentpunkteSp1+TrefferEinser);
                                if Panel_Zahl4.Caption=1
                                  then PunkteSpieler1:=Integer(MomentpunkteSp1+TrefferEinser);
                                if Panel_Zahl5.Caption=1
                                  then PunkteSpieler1:=Integer(MomentpunkteSp1+TrefferEinser);
                                if Panel_Zahl6.Caption=1
                                  then PunkteSpieler1:=Integer(MomentpunkteSp1+TrefferEinser);

Wobei TrefferEiner global als integer und bei FormCreat mit
        TrefferEinser:=100; angegeben ist.
PunkteSpieler1 soll die Variable sein die dann das Spiel über die Punkte anzeigt...