[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;

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

[Страдалецъ]

А если вместо Sleep(1000); использовать Application.ProcessMessages;

[NekitoSSSS]

всеравное не работает((( еще варианты?? предлагайте все что знаете...

[Страдалецъ]

Значит у вас неправильно работает good, т.к. Application.ProcessMessages однозначно отдает управление.

[NekitoSSSS]

Страдалецъ, спасибо за помощь но Application.ProcessMessages не работал всеравно а вот TTimer с предложенной работой справился прекрасно))