Ошибка: List of index out of bound

        while integerl <= spinedit do
        begin
              Mythread := tmythread.Create(false);
              sleep(670);
              inc(integerl);
        end;

procedure TForm1.Button4Click(Sender: TObject);
var
integerl, spinedit : integer;
begin
  spinedit := spinedit1.value;
  integerl := 0;
  log(inttostr(memo2.Lines.count) + ' ' + inttostr(spinedit1.Value));
  if(Memo2.Lines.Count >= spinedit1.Value) then
  begin
    if(Memo1.Lines.Count < Memo2.Lines.Count ) then log('ERROR')
    else
    begin
        proxy_list.Add(memo1.Lines.GetText);
        login_list.Add(memo2.Lines.GetText);
        while integerl <= spinedit do
        begin
              Mythread := tmythread.Create(false);
              sleep(670);
              inc(integerl);
        end;
    end;
  end else log('ERROR');
end;

TMyThread = class(TThread)
    private
    msg : string;
  protected
    procedure Execute; override;
    procedure AddLog;
  end;

var
  Form1: TForm1;
   MyThread: TMyThread;

procedure TMyThread.Execute;
var
moj_akkaunt : integer;
stroka_logina, stroka_proxy : string;
begin
  moj_akkaunt := aktivnij_akkaunt;
  inc(aktivnij_akkaunt);
  stroka_logina := login_list[moj_akkaunt];
  stroka_proxy := proxy_list[moj_akkaunt];
 
  msg := stroka_logina + ' ' + stroka_proxy;
   Synchronize(AddLog);
end;
 
procedure TMyThread.AddLog;
begin
  if(length(msg) <> 0) then
  begin
    log(msg);
    msg := '';
  end;
end;

function log(msg:string):boolean;
var
today : TDateTime;
begin
today := Time;
form1.Memo3.Lines.Add('[' + TimeToStr(today) + '] ' + msg);
 
end;