IcqClient

[DKENT]

Здраствуйте, возникла проблема при отправки сообщения icq!
Уин выходит в сеть но сообщение не приходит.
Если отправку сообщения ставлю на другую процедуру onclick то работает, но мне нужно чтобы код выполнялся посредством одной процедуры!
Помогите решить проблему....

procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.UIN :=strtoint(Edit1.text);
ICQClient1.Password :=Edit2.text;
ICQClient1.Login();

if not ICQCLient1.LoggedIn then
ICQClient1.SendMessage(123456,'Прив ет')
else
begin
Showmessage('Неверный пароль!')
end;
ICQCLient1.Disconnect;
end;

[Voody]

Потому что ICQClient1.Login(); это неблокирующий вызов. Программа не ждет, когда выполнится процедура Login, а продолжает выполнение. А т.к. за миллисекунды логина не происходит, то естественно сообщение отправлено не будет.
Поставьте отправку сообщения на событие логина (OnLogin вроде), тогда сообщение отправится при выходе номера в онлайн

P.S.
if not ICQCLient1.LoggedIn then
ICQClient1.SendMessage(123456,'Прив ет')

это как? если не залогинен, то отправляем сообщение. Так получается