TICQClient Delphi2010

ICQClient1.UIN:=strtoint(edit1.Text);
ICQClient1.Password:=(edit2.Text);
ICQClient1.Login(0,false);

if ICQClient1.LoggedIn then
 ShowMessage('Ура! Заработало!')

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
    ShowMessage('Ура! Заработало!')
end;

ICQClient1.LoggedIn

procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.ConvertToPlaintext := True;
ICQClient1.UIN:=юин;
ICQClient1.Password:=пароль;
ICQClient1.ICQServer := 'login.icq.com';
ICQClient1.ICQPort := 5190;
ICQClient1.Login;
end;

procedure TForm1.ICQClient1ConnectionFailed(Sender: TObject);
begin
 Memo1.Lines.Add('false!');
end;
 
procedure TForm1.ICQClient1Login(Sender: TObject);
begin
 Memo1.Lines.Add('true!');
end;

procedure TForm1.ICQClient1LogOff(Sender: TObject);
begin
  Memo1.Lines.Add('false!');
end;

  form1.ICQClient1.LogOff;

procedure TForm1.ICQClient1StatusChange(Sender: TObject; UIN: String;
  Status: Cardinal);
begin
  form1.Memo1.Lines.Add('Error');
end;
 
procedure TForm1.ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
  ErrorMsg: String);
begin
  if ErrorType=ERR_WARNING
  then
  form1.Memo1.Lines.Add('Warning: '+ErrorMsg)
  else
  begin
    form1.Memo1.Lines.Add('Error: '+ErrorMsg)
  end;
end;

procedure TForm1.ICQClient1ServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
 i: Word;
    UserInfo: TUINEntry;
  begin
     if SrvContactList.Count > 0 then
       for i := 0 to SrvContactList.Count - 1 do
       begin
         UserInfo := PUINEntry(SrvContactList.Items[i])^;
         Memo1.Lines.Add(UserInfo.Nick + ': ' + IntToStr(UserInfo.UIN));
       end;
     ICQClient1.DestroyUINList(SrvContactList);
 
end;

procedure TMainForm.ICQClient1ServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i: Word;
  UserInfo: TUINEntry;
  ListItem: TListItem;
begin
  if SrvContactList.Count > 0 then
    for i := 0 to SrvContactList.Count - 1 do
    begin
      UserInfo := PUINEntry(SrvContactList.Items[i])^;
      if UserInfo.CType = U_VISIBLE_LIST then
        ICQClient1.VisibleList.Add(IntToStr(UserInfo.UIN))
      else if UserInfo.CType = U_INVISIBLE_LIST then
        ICQClient1.InvisibleList.Add(IntToStr(UserInfo.UIN))
      else if UserInfo.CType = U_NORMAL then
      begin
        if ICQClient1.AddContact(UserInfo.UIN) then
        begin
          ListItem := ListView1.Items.Add;
          ListItem.ImageIndex := ICON_OFFLINE;
          ListItem.Caption := IntToStr(UserInfo.UIN);
        end;
      end;
    end;
  ICQClient1.DestroyUINList(SrvContactList);
end;

 procedure TForm1.ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
  ErrorMsg: RawByteString);
begin
 if ErrorType= ERR_WARNING
  then
  ShowMessage('Warning: '+ErrorMsg)
  else
  begin
    ShowMessage('Error: '+ErrorMsg)
  end;
end;