Abwechselnd angreifen

[Doenercola]

Hallo!

Ich habe eine Frage, und zwar programmiere ich eine Art Textrollenspiel, es klappt soweit auch alles, aber bei den Angriffen bräuchte ich noch etwas Hilfe...

Folgende Situation : Man wählt ein Gebiet in das man reisen möchte und es "erscheint" ein Gegner. Dieser Gegner hat, wie der Spieler Treffer- und Angriffspunkte. Mit einem Klick auf einen Button "angreifen" wird der Kampf initiiert.
Es wird nacheinander angegriffen, bis die Lebenspunkte von einem der beiden auf 0 oder kleiner geht.
ICh habs mal versucht aber es funktioniert net.

Delphi-Quellcode:

// 
case WerIstDran of // 1 = Spieler, 2 = Computer

  1:  begin
          if GegnerLP > 0
          then
              begin
                GegnerLP := GegnerLP - SpielerAP;
                 WerIstDran := 2;
              end
          else
              begin
                Memo_Textausgabe.Text := Memo_Textausgabe.Text +
                                       'Du hast gewonnen! Glückwunsch!';
                MemoFeld_NachUnten;
              end;
     end;

  2:  begin
           if SpielerLP > 0
           then
               begin
                  SpielerLP := SpielerLP - GegnerAP;
                  Aktualisiere_Lebenspunkte;
                  WerIstDran := 1;
               end;
           else
              begin
                  Memo_Textausgabe.Text := Memo_Textausgabe.Text +
                                  'Du hast leider verloren! :( Versuchs morgen nochmal!';
                  MemoFEld_NachUnten;

           end;
     end;

Das alles befindet sich in einer on-click Prozedur des Angreifen-Buttons.
Wie und was muss ich einbinden, damit man sich nacheinander duelliert? Hat es was mit einer "Flag" zu tun? Wenn ja, was ist das genau? Ich programmiere leider noch net so lange.
Wenn einer der beiden stirbt, soll das Ergebnis in einem Memo_Feld ausgegeben werden, aber das bekomm ich hin

Liebe Grüße
Marcel