BigProblem bei XXO(TicTACToe)Zufallssetzung *Bitte helfen*

[M4ST3R86]

Das soll eine zufallsetzung der PCS werden, Das heißt ich setze das O und der PC danach zufällig irgentwohin ein X, nur ich habe dauert abstürze es geht einfach nicht, dabei müsste es laufen. Bitte helft mir ich bin echt am ende.



Habe das noch unter private

Code:

MovePlayerX : boolean;
    bMovePlayerX : boolean;
    GameBoard : array[ 0..2,0..2 ] of TFieldType;

Und im TFieldType steht folgendes

Code:

 TFieldType = ( ftNone, ftX, ftO,ftH );

Code:

 

procedure TForm1.Stufe11Click (Sender: TObject);
var
  i : integer;
  senderImage : TImage;
  PX : Integer;
  PY : Integer;
  TMP : string;
begin
  for i := 0 to 8 do begin
  TImage (FindComponent ('ImageK' + IntToStr (i))).Visible := True ;
  tmp := IntToStr( senderImage.Tag );
  if ( GameBoard[ pX, pY ] = ftNone ) then
    begin
      if ( bMovePlayerX ) then
      begin
        senderImage.Picture := ImageX.Picture;
        GameBoard[random(2),random(2)]:= ftX ;
      end
      else
      begin
      senderImage.Picture := ImageO.Picture;
      GameBoard[ pX, pY ] := ftO;
      end;
    end;
end;
end;