Помогите с кодом делфи

unit Unit1;

interface

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

type
TForm1 = class(TForm)
SpinEdit1: TSpinEdit;
ServerSocket1: TServerSocket;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Memo1: TMemo;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Port:=SpinEdit1.Value; //
ServerSocket1.Active:=True; //
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ServerSocket1.Active:=False; //
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var Received: string;
begin
Memo1.Lines.Add('> ' +Received);
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(' ');
end;

procedure TForm1.Button3Click(Sender: TObject);
var s:string;
begin
S:=Edit1.Text; // TEdit'a...
Edit1.Clear; //
ServerSocket1.Socket.Connections[0].SendText(S); //
Memo1.Lines.Add('< '+S);
end;

пытаюсь написать чат, после компиляции на строчке
ServerSocket1.Socket.Connections[0].SendText(S)
выбиает ошибку List of index of bounds(0) или как то так, как исправить?