[snr93]

Добрый день. Помогите кто может с кодом. 2 день сижу и ничего не получается. Нужно написать бота. Смысл: боту пишется слово "привет", он отвечает "здорово", ну и так далее. Вот что у меня есть:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ICQDb, ICQClient, StdCtrls, ICQWorks;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ICQClient1: TICQClient;
    ICQDb1: TICQDb;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ICQClientMessageRecv(Sender: TObject; Msg, UIN: String);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.UIN := 637198656;
ICQClient1.Password := '********';
ICQClient1.XStatus := 12;
ICQClient1.Login(S_ONLINE + S_ALLOWDAUTH, false);
Timer1.Enabled:= true
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ICQClient1.SendKeepAlive
end;

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

procedure TForm1.Button3Click(Sender: TObject);
begin
if ICQClient1.LoggedIn then //проверяем, в онлайне ли мы
ICQClient1.SendMessage(7624084,'Привет') //сначала UIN, а потом текст сообщения
Else
Showmessage('Войди в онлайн!'); //если мы не подключены
end;

procedure TForm1.ICQClientMessageRecv(Sender: TObject; Msg, UIN: String);
var
s: string;
st: tstrings;
begin
s:=Msg; //присвиваем переменной s текст который пришёл от клиента
{--------------------------------------------------------------}
if s='hi' then //Что прислали
 begin
   ICQClient1.SendMessage(7624084, 'hello'); //что отвечаем
 end;
{--------------------------------------------------------------}

end;

end.

Все конектится, сообщение о включении присылает, но слово Привет игнорирует полностью. Использую компонент "царя". Вот ссылка

http://ticqclient.tsar-ioann.ru/

Компонент использую версии 1.35