Fehler (warsch.) eine Abfrage. In Tic Tac Toe KI. HelpPlease

[M4ST3R86]

Jetzt habe ich hier bei
if ( not CheckForFreeField( nFieldNum ) ) then begin
Label1.Caption := 'Move again';
exit;

bei nFieldNum nicht genügend wirkliche parameter. Wieso?

Delphi-Quellcode:

procedure TForm1.ImageK0Click(Sender: TObject);
var
  nFieldNum : integer;
  nCurrImg  : TImage;
begin
  //Falls der Sender nicht von Typ TImage ist abbrechen
  if not ( Sender is TImage ) then
    exit;

  //Wenn 'bGameOver' auf true gesetzt ist, ebenfalls abbrechen
  if bGameOver then
    exit;

  //Den Sender einer Hilfvariable übergeben
  nCurrImg := ( Sender as TImage );
  //Den Tag (Feldnummer) des Senders einer Hilfvariable übergeben
  nFieldNum := nCurrImg.Tag;

  //Überprüfen ob das geklickte Feld frei ist, falls nicht aus der
  //Funktion springen
  if ( not CheckForFreeField( nFieldNum ) ) then begin
    Label1.Caption := 'Move again';
    exit;
  end;