ICQБот

[mustang007]

Этот бот у меня на компе работает отлично. а на других компах он не отвечает на сообщения. Скажите пожалуйста в чём проблема. вот исходник первого юнита.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label6: TLabel;
    Label5: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox2: TGroupBox;
    ListBox1: TListBox;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    XPManifest1: TXPManifest;
    Timer2: TTimer;
    Timer1: TTimer;
    MediaPlayer1: TMediaPlayer;
    PopupMenu2: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    Edit4: TEdit;
    OpenDialog1: TOpenDialog;
    ICQClient1: TICQClient;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ICQClient1Login(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
icqclient1.UIN:=strtoint(edit1.Text);
icqclient1.Password:=edit2.Text;
icqclient1.ICQServer:=form2.labelededit1.text;
icqclient1.ICQPort:=strtoint(form2.LabeledEdit2.Text);
timer1.Enabled:=true;
icqclient1.Login();
if (Edit1.Text='') or (Edit2.Text='')
or (StrToInt(Edit1.Text)<10000) or (StrToInt (Edit1.Text)>1000000000) then
begin
MessageBox(0, 'Пожалуйста введите верно UIN и Пароль', 'Невозможно подключиться!', MB_ICONWARNING);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit2.Font.Name:='Wingdings';
Edit2.PasswordChar:='l';
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
if icqclient1.LoggedIn then
bitbtn3.Enabled:=true;
bitbtn1.Enabled:=false;
timer1.Enabled:=false;
label6.Caption:='ОнЛайн';
label6.Font.Color:=clgreen;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
icqclient1.LogOff;
bitbtn1.Enabled:=true;
bitbtn3.Enabled:=false;
label6.Caption:='ОффЛайн';
label6.Font.Color:=clred;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
listbox1.Items.SaveToFile('Istoriy.txt');
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Aboutbox.show;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form3.show;
form3.memo1.Lines.LoadFromFile('Istoriy.txt');
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
listbox1.Items.Clear;
end;

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
LogFile: TextFile;
ICQ: Cardinal;
i,j: integer;
begin
randomize;
i:=random(form4.ListBox1.Count-1);
ListBox1.Items.Add(UIN + ': ' + Msg);
form4.ListBox1.Items.add(msg);
ListBox1.Items.Add('Бот:''' + form4.ListBox1.Items.Strings[i] +'');
ICQClient1.SendMessage(StrToInt(UIN), ''+ form4.listbox1.Items.strings[i] +'');
icq := StrToInt(UIN);
if form2.RadioButton2.Checked=true then
MediaPlayer1.FileName:='1.wav';
mediaplayer1.Open;
begin
MediaPlayer1.Play;
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
PopupMenu2.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
listbox1.Items.SaveToFile('Istoriy.txt');
form4.ListBox1.Items.SaveToFile('otvet.txt');
end;

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
form2.Show;
end;

procedure TForm1.MenuItem2Click(Sender: TObject);
begin
form4.Show;
end;
end.

[Ghost of Night]

Пробелы в коде ставить пробовали?