[Delphi]Komunikator zwraca bledy

Napisalem komunikator ale nie wiem czy dziala. Mam problem z wyslaniem wiadomosci w programie do hostowania wywala mi taki komunikat List index out bounds(-1).
Blad jest w tej chyba linijce ale nie jestem pewny

procedure TForm1.Button1Click(Sender: TObject);
begin
// wyslij wiadomosc
ServerSocket1.Socket.Connections[ServerSocket1.Socket.ActiveConnections-1].SendText(Edit1.Text+':'+edit2.Text);
Memo1.Lines.Add('Ja:'+ Edit2.Text);
Edit2.Text:='';
end;

Moze mi ktos powiedziec co jest nie tak.Albo przerobic przycisk wysylania

ServerSocket1.Socket.ActiveConnections-1 = Index ot of bounds (-1)
=>
ServerSocket1.Socket.ActiveConnections-1 = -1
=>
ServerSocket1.Socket.ActiveConnections = 0
=>
Brak Aktywnych Połaczeń

P.S. Myśl, Myśl, Myśl

Wow, cóż za wspaniała dedukcja!

Dobra ale tera niechce mi sie polaczyc client do servera.Zadnej wiadomosci nie zostawia na serwerze wyslanej z clienta.

procedure TForm1.Button2Click(Sender: TObject);
begin
Clientsocket1.Address:=Edit1.Text
end;

Umnie button2 odpowiada za polaczenie do serwera i w tym tez jest blad chyba..