Zählsystem für Tennis entwickeln

[torud]

Hello again,

also ich bin nun an folgendem Punkt angelangt. Ich habe die Klassen te_game, te_set und te_init erstellt mit folgendem Inhalt:

Delphi-Quellcode:

unit te_init;

interface

uses te_game;

  procedure InitVariables;

implementation

procedure InitVariables;
begin
   akt_points_a := 0;
   akt_points_b := 0;
end;

end.

Delphi-Quellcode:

unit te_game;

interface

uses Dialogs,SysUtils;

var
  akt_points_a,akt_points_b:integer;


  function SetPoint(player,point: integer):boolean;

implementation

function SetPoint(player,point: integer):boolean;
begin
  // wenn player = 1
  case player of
    1 : begin
          // wenn point > 0 erhoehe Spieler1
          if point > 0 then inc(akt_points_a);
          // wenn point < 0 senke Spieler1
          if point < 0 then dec(akt_points_a);
        end;
    2 : begin
          // wenn point > 0 erhoehe Spieler2
          if point > 0 then inc(akt_points_b);
          // wenn point < 0 senke Spieler2
          if point < 0 then dec(akt_points_b);
        end;
  end;
  showmessage(inttostr(akt_points_a));
end;
end.

Im FormCreate meiner Applikation rufe ich auf:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  InitVariables;
end;

und wenn ich mal einen Testbutton für plus A drücke, passiert folgendes:
SetPoint(1,1); Also Spieler 1 oder A erhält einen Pluspunkt.

Nun stehe ich vor dem Problem mit dem Zählen in der richtigen Reihenfolge => 0, 15, 30, 40 und wenn akt_points_a schon 40 hat und einer dazukommt, würde ich dann akt_games_a "inc"en...aber wie?