Eschecs - Pascal chess program

[Ñuño Martínez]

Maybe I can contribute with a translation to Spanish. Give me some time.

[Edit] Done. I thought it would be harder.

const
  TEXTS: array[TText] of string = (
    'Eschecs', // txEschecs
    'Crear un acceso directo en el escritorio', // txShortcut
    'Ayuda', // txHelp
    'Salir', // txQuit
    'Acerca de Eschecs', // txAbout
    'Movimientos', // txMoves
    'Movimiento de la computadora', // txComputerMove
    'Partida automática', // txAutoPlay
    'Tablero', // txBoard
    'Nuevo juego', // txNewGame
    'Invertir el tablero', // txFlip
    'Opciones', // txOptions
    'Tablero de mármol', // txMarble
    'Promover pieza', // txPromotion
    'Caballo', // txKnight
    'Alfil', // txBishop
    'Torre', // txRook
    'Reina', // txQueen
    
    'Acceso directo creado.', // txShortcut
    'Para mover una pieza, haga click en ella y después haga click en el escaque al que quiera moverla.', // txHelp
    'Programa de Ajedrez en Pascal por Roland Chastain.', // txAbout
    'Movimiento ilegal.', // txIllegalMove
    
    'Blancas mueven.', // txWhiteToMove
    'Negras mueven.', // txBlackToMove
    'Blancas ganan.', // txWhiteWins
    'Negras ganan.', // txBlackWins
    'Jaque.', // txCheck
    '¡Jaque mate!' // txCheckmate
    '¡Ahogado!', // txStalemate
    '¡Tablas!' // txDraw
  );

Note that I'm using Spanish from Spain (Castillian, actually) so people from South America, Africa and Philippines (as well as Sephardi Jews) would use different expressions (Yes, all them [may] talk Spanish). Also I tried to use the official chess lingo, but I'm not sure everything is correct (there's a lot of time I don't play chess).

[edit 2]
Ok, tested.

First: It works with Wine.
Second: No levels. And since I didn't play chess for ages it wiped the board in few minutes.