[NekitoSSSS]

народ, помогите с TICQClient`oм и потоками...
в общем прикрепляю процедуру:

Код:

 client.OnContactListRecv:=ContactListRecv; 

Получаю КЛ:

Код:

    client.RequestContactList;
     While (not good) do //пока не получен кл -
       begin                //-гоняем цикл.
        Sleep(1000);
        end;

как сделать так, чтобы событие которое возникнет, во время цикла можно было отследить??

Код:

procedure TEditThread.ContactListRecv(Sender: TObject; UIN: String;
  ContactList: TStringList);
begin
    form1.Memo1.Lines.Add('КЛ получен!!!!');
    good:=true;
end;

то есть цкил как раз то и ждет это событие, но дождаться не может, т.к. собой перекрывает поток((