Access violation at address при выполнении end

[elsin]

Выскакивает "Access violation at address..." при выполнении end.
Процедуру не правил, налаживал связи между формами, менюшки делал и пр. Вот думаю, откуда оно тогда? Может кто встречал?

[elsin]

При запуске отдельно exeшника процедура делает свое дело, отображает требуемое в memo-поле, но грязно ругается

[KORN]

код покажи... такая ошибка может быть в любом месте

и не пиши несколько постов... пользуйся правкой

[elsin]

Про правку я вспомнил после создания поста.

Код для создания массива, который используется в процедуре:

a:=93;
   N:=500;
   b:=0;                                // обнуляем счетчик
   for i := 1 to a do
   msr[i]:= (i*(i+1))/(a*(a+1));   //делаем массив "сравнения"
   repeat                             // запускаем цикл
    begin
     Application.ProcessMessages;
     int:=random();                      // генерируем int, равномерное на [0,1);
     for i := 1 to  a  do               // создаем цикл для проверки попадания в интервал i
      begin
       if int<msr[i] then               // проверяем попадание int в интервал p
        begin                           // если верно, то
          chis[b]:=i;
          b:=b+1;                       // добавляем к счетчику +1
        goto gotolabel;                 // заканчиваем цикл от i, и идем к следующему члену последовательности
        end;
       end;
      end;
      GotoLabel:                        // лэйбл
    until b>=N;                         // выход из цикла

А вот сама процедура:

procedure TFirstF.Button7Click(Sender: TObject);
var
N,key,a,i,b: integer;
int,p: real;
s:string;
ss:string;
begin
key:=chis[strtoint(labelededit6.text)+1];
s:=memo11.Text;
memo12.Text:=caesar_decrypt(s,key);
labelededit6.Text:=inttostr(strtoint(labelededit6.Text)+1);
end;

Просто при пошаговом прохождении процедуры выдает ошибку при выполнении end;
Спасибо!



p.s.
labelededit6.text='0'; Сделано в FormShow;

[elsin]

удалите, пожалуйста, этот пост

[KORN]

выложи лучше весь исходник аттачем, на End ошибки быть не может...