Mein Chatprog. funzt nicht !!

[Vader]

beim server, wenn ich auf den sendenbutton drücke, wo der code:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer; //<- Ohne des gehts net.
begin
  if Serversocket1.Active = true then
  if ServerSocket1.Socket.ActiveConnections > 0 then
  begin
    for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do 
    begin
      ServerSocket1.Socket.Connections[1].SendText(Edit1.Text);
      Edit1.Text:='';
    end;
  end;
end;

ausgeführt wird ??

mfg vader