Bedingung "greift" nicht.

[Neotracer64]

Ich will eine MessageBox mit der Meldung "Leider unentschieden" ausgeben. Aber in dem Programm wird sie genau 2 mal hintereinander angezeigt, obwohl ich alles mögliche getan habe, was dies verhindern sollte.
Dieser Code wird übrigens auch nur einmal ausgeführt...Ist mir wirklich schleierhaft was da abläuft.

Die Bedingungsvariablen, die das anzeigen wieder ermöglichen also movedone:=0; werden erst gesetzt, wenn der User ein Button drückt sonst NICHT!

Delphi-Quellcode:

If not (movedone = 2) Then begin
  //showmessage('Unentschieden, schade');
  s1:= Pchar('Leider unentschieden !');
  s2:= Pchar('Tic Tac Toe');
  If Windows.MessageBox(Handle,s1,s2,MB_ICONINFORMATION) = IDOK Then movedone:=2;
  s1:='';
  s2:='';
  movedone:=2;
  exit;
  end;
  end;

Ich hab alles mögliche und auch verrückte getan. Warum kommt die Messagebox 2-mal hintereinander ? *grml*