Pascal/Turbo Pascal - IoResult

Alguien sabe para que sirve y como uso la función IoResult?

La función ioResult te sirve para averiguar si en la operación que acabas de realizar ocurrió un error de entrada o salida. Esta la utilizas junto con las directivas de compilación {$I-}{$I+}.Por ejemplo:

var
Numero : Byte;
begin
{$I-} {desactivamos el control de error}
ReadLn(Numero);
{$I+} {activamos el control de error}
{IOResult nos el valor introducido es válido}
if IOResult <> 0 then
WriteLn(´Valor Inválido´)
else
WriteLn(´Valor permitido´);
end.

tengo la siguiente validacion....

Function Opcion_Valida(op: integer): boolean;

begin

readln(op);

case op of

1..5: Opcion_Valida:=true

else

Opcion_Valida:=false;

end;

if Opcion_Valida=false then

writeln('Opcion no valida!');

end;

pero si ingreso una letra por error se me pincha el programa...como lo puedo arreglar???

que es el ioresult

IOResult devuelve 0 si esta una operacion fue realizada con éxito de lo contrario retonará un código de error