Ayuda con 'range check error'

[delphi.com.ar]

Empezado por drykea

¿Alguien sabe por qué sale ese error?

Simplemente porque alguna de las herramientas que estas utilizando esta violando el rango de un valor ordinal.

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE}
{$R-}

uses
  SysUtils;

var
  w: Word;
begin
  WriteLn('Ingrese valores menores a ', High(w)+1, ' o "0" para salir');
  repeat
    ReadLn(w);
    WriteLn('Valor: ', w);
  until w = 0;
end.

Es riesgoso, no lo recomiendo, pero puedes desactivar el RangeChecking desde el menú: Project\Options\Compiler\Range Checking.

Saludos!