Indy trennt sofort

[thetrue]

Delphi-Quellcode:

procedure Tmain.serverConnect(AThread: TIdPeerThread);
var
  i: integer;
begin
for i:=0 to 255 do
  begin
    if Clients[i] = nil then
      begin
        Clients[i] := AThread;
        Tserv.Create(self);
        Cwin[i] := 0;
          {window}
        exit;
      end;
  end;
end;

end.

Delphi-Quellcode:

{///////////////////////::::::C O N N E C T::::::////////////////////////}
procedure Tmain.menu_connectClick(Sender: TObject);
begin
    {connection to the server}
    server.Active := true;
end;

so das wars eigentlich hier noch die IndyServer config:
>>Im anhang<<