Milos - 2007-03-06

Hi

I have:

ButtonClick: self.ICQClient1.SendAuthRequest( {ICQ number, where i am login with original ICQ client version 5.1} , 'Authorize me, please.');

procedure TForm1.ICQClient1AuthResponse(Sender: TObject; UIN: String;
  Granted: Boolean; Reason: String);
begin
  ICQClient1.SSLChangeStart(False);
  if Granted then
    ICQClient1.SSLAddUser(0010, 0025, UIN, '', '', False, False)
  else
    ICQClient1.SSLAddUser(0010, 0025, UIN, '', '', False, True);
 
  ICQClient1.SSLChangeEnd; 
  ShowMessage('Hi');

When i disagree with autorization from original client. message: Hi is displaed (bat ssladduser end with error ERRSSL_AUTH from event ICQClient1SSLChangeResponse),
bat when i agree with authorization, message Hi is not displayed, so event ICQClient1.SendAuthRequest isn't developedend;

Can anybody help mi?
Thanks.