[LorDHeLeGaL]

Не понимаю в чем ошибка:

Код:

const N=14;//количество званий

var
  Form1: TForm1;
  x1,x2,x3,x4,x5,x6,x7,x8,y,x11,x22,x33,x44,x55,x66,x77,x88,r,
  raiting: integer;
  golos,akciy,m1,m2,m3,m4,m5,m6,m7,m8,z: real;
  Status: array [1..N] of string = ('Новичок','Про','Мастер','Гуру','Легенда',
  'Бог','Профессионал','Любимец','Премьер','Эрудит','Monster',
  'Знаток','Nooob','Lamer');//Звания
  //Icon: array [1..N] of string = ('1.png','2.png','3.png');//картинка
  mmop: array [1..2*N] of integer = (0,5,10,15,20,25,50,100,500,1000,5000,10000,
  50000,100000);//рамки

И

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    op:integer;
begin
Op:=StrToInt(edit1.Text);
for i:=1 to N do //идем по рангам
   if Op in [mmop[i*2-1]..mmop[i*2]] then
      Label3.caption:=Status[i];
//Img1.picture.loadfromfile(icon[i]);//картинка+текст