TICQClient и авторизация по списку

[fate]

Есть список юнитов в файле хочу рассортировать на рабочие и не рабочие, пробую

    procedure TForm1.Button1Click(Sender: TObject);
    var i:integer;
    begin
    if FileExists('unit.txt')then begin
    list:=tstringList.Create;
    list.LoadFromFile('unit.txt');
    for i:=0 to list.Count-1 do
      autorization(copy(list[i],1,pos(';',list[i])-1),copy(list[i],pos(';',list[i])+1,length(list[i])-pos(';',list[i])));
    end else
    ShowMessage('Файл с юнитами не найден');
    end;

    procedure TForm1.autorization(const unt, pas: string);
    begin
    ICQClient1.UIN :=strtoint(unt);
    ICQClient1.Password:=pas;
    ICQClient1.Login(S_ONLINE + S_WEBAWARE);
    end;

    procedure TForm1.ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
      ErrorMsg: String);
    begin
    if ErrorType=ERR_LOGIN_BAD_UINORPASSW then
      cort(inttostr(ICQClient1.UIN)+';'+ICQClient1.Password,false) ;//записываем в файл не рабочие номера
     
    end;

    procedure TForm1.ICQClient1Login(Sender: TObject);
    begin
      cort(inttostr(ICQClient1.UIN)+';'+ICQClient1.Password,true) ; //записываем в файл рабочие номера
      ICQClient1.SetAuthorization(False, false);  //отключаем авторизацию и webaware
      ICQClient1.LogOff;
     
    end;

в этоге создается только good.txt и в нем один номер, хотя на самом деле в списке больше рабочих номеров

в принципе причина ясна, но как устранить
посмотрел в отладчике, когда отрабатывает процедура autorization код возвращается к циклу и т.д. до конца списка, только когда цикл закончился отрабатывает событие ICQClient1Login и соответственно только последняя строка записывается в файл