Componentes.Terceros.jvcl/official/3.32/examples/RaLib/RaInterpreter/samples/sample - string char.pas

var
  S: string;
begin
  //S := '1234567890';
  S := '';
  try
    Result := S[11];
  except
    on E: ERangeError do
      Result := 'error';
  end;
end;