TClientSocket и TServerSocket

[_-Re@l-_]

Вот есть такое....

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    ListBox1: TListBox;
    Button2: TButton;
    ClientSocket1: TClientSocket;
    ServerSocket1: TServerSocket;
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Disconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  sc:Boolean = False;

implementation

{$R *.dfm}

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      Caption:='Соединение установлено';
      sc:=True;
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      Caption:='Соединение разорвано';
      sc:=False;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      Caption:='Соединение установлено';
      sc:=True;
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      Caption:='Соединение разорвано';
      sc:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
      ClientSocket1.Address:=Edit1.Text;
      ClientSocket1.Active:=True;
      Edit2.SetFocus;
      Edit1.ReadOnly:=True;
      Button2.Enabled:=False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
      ServerSocket1.Active:=True;
      Caption:='Ожидание...';
      Edit2.Text:='';
      Edit1.ReadOnly:=True;
      Button1.Enabled:=False;
end;

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      If Key = VK_RETURN Then
      Begin
            ListBox1.Items.Add(Edit2.Text);
            If sc Then
            ServerSocket1.Socket.Connections[0].SendText(Edit2.Text)
            Else ClientSocket1.Socket.SendText(Edit2.Text);
            Edit2.Text:='';
      End;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      ListBox1.Items.Add(Socket.ReceiveText);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      ListBox1.Items.Add(Socket.ReceiveText);
end;

end.

Собсна, где здесь ошибки?

[_-Re@l-_]

Ладно, я выяснил - ошибок нет.
Но вот теперь такая проблема. Я с другом решил опробовать эту программку. Всё нормально соединяется. Я ввожу текст сообщения в Edit2, отправляю и оно нормально доходит до меня. Однако, когда то же самое пытается сделать мой друг, то у него возникает ошибка Listindex out of Bounds (ну или как-то так). В чём дело?

[mihali4]

Читаем правила.
Одна тема - один вопрос.
И пожалуйста, перечитайте правила раздела - они изменились.
Постарайтесь следующей теме дать более осмысленное название.
Такое, как у этой, я однозначно забракую.