uses icqworks;

procedure TForm1.FormCreate(Sender: TObject);
...
ICQClient1.UIN:=уин;
ICQClient1.Password:='пас';
ICQClient1.Login(0, false);
...


procedure TForm1.BtnSendClick(Sender: TObject);
begin
ICQClient1.SendMessage(StrToInt(Edit1.Text), Memo1.Lines.Text);
end;

procedure TForm1.ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
  ErrorMsg: String);
begin
MemoError.Lines.Add(ErrorMsg);
end;