Problem beim Punktezählen

[Wolverine]

Tach zusammen.
Wieder mal ein Prob.
Ich will den Wert einer Variablen bei einem bestimmten Ereigniss, Form1.Visible=True, immer um 1 erhöhen.
Das Problem ist, wenn das Formular 4 mal angezeigt wird, ändert sich der Wert trotzdem nur um 1, er sollte sich dann aber um z.B. 4 erhöhen!!!

Quellcode lautet:

Delphi-Quellcode:

if (Form1.Visible=True) then
begin
   scorespieler1 := scorespieler1 + 1;
   Form4.Label1.Caption:='Score von Spieler 1= '+IntToStr(scorespieler1);
 end;

Ist der Code so richtig oder fehlt etwas???
Was muss ich, wenn was fehlt, wie ändern???
Bräuchte die Lösung wiedermal schnell aber das ist hier ja Standard