MATER - Recherche de mat à partir d'une position donnée d'une partie d'échecs

J'ai réécrit la fonction FEN2Posit, puisqu'apparemment le problème venait de là. (A noter que pour alléger le code, j'ai supprimé le contrôle de la validité de la chaîne.) A présent le programme fonctionne correctement quel que soit le compilateur.

(*
converts a string representing a FEN position to an internal
representation.
*)

FUNCTION FEN2Posit(fen: strg80): boolean;
var
x, y, i, j: integer;
c: char;
begin
x := 1;
y := 8;
i := 1;
with Posit do
begin
while i <= Length(fen) do
begin
c := fen;
case Upcase(c) of
'P', 'N', 'B', 'R', 'Q', 'K':
begin
case c of
'p': Board[10 * (10 - y) + x + 1] := BlackPawn;
'n': Board[10 * (10 - y) + x + 1] := BlackKnight;
'b': Board[10 * (10 - y) + x + 1] := BlackBishop;
'r': Board[10 * (10 - y) + x + 1] := BlackRook;
'q': Board[10 * (10 - y) + x + 1] := BlackQueen;
'k': Board[10 * (10 - y) + x + 1] := BlackKing;
'P': Board[10 * (10 - y) + x + 1] := WhitePawn;
'N': Board[10 * (10 - y) + x + 1] := WhiteKnight;
'B': Board[10 * (10 - y) + x + 1] := WhiteBishop;
'R': Board[10 * (10 - y) + x + 1] := WhiteRook;
'Q': Board[10 * (10 - y) + x + 1] := WhiteQueen;
'K': Board[10 * (10 - y) + x + 1] := WhiteKing;
end;
Inc(x);
end;
'1'..'8':
begin
j := Ord(c) - Ord('0');
while j > 0 do
begin
Board[10 * (10 - y) + x + 1] := Blank;
Inc(x);
Dec(j);
end;
end;
'/':
begin
x := 1;
Dec(y);
end;
end;
Inc(i);
end;
if Board = BlackKing then KingCastle := true else KingCastle := false;
if Board = BlackRook then QueenRookCastle := true else QueenRookCastle := false;
if Board = BlackRook then KingRookCastle := true else KingRookCastle := false;
if Board = WhiteKing then KingCastle := true else KingCastle := false;
if Board = WhiteRook then QueenRookCastle := true else QueenRookCastle := false;
if Board = WhiteRook then KingRookCastle := true else KingRookCastle := false;
EnPassantSquare := None;
end;
result := true;
end;

Reste une chose bizarre que j'observe : ce qui est affiché dans la console varie d'une fois sur l'autre, avec le même exécutable et le même fichier de commande ! Tantôt tous les caractères sont bien en place, tantôt ils sont mal rangés (mais apparemment les valeurs internes du programme ne sont pas affectées).
Je n'ai observé ce phénomène que lorsque j'ai compilé avec Virtual Pascal. Avez-vous la moindre idée de ce qui pourrait expliquer cela ?