idtcpserver的最大连接数在程序中如何控制

idtcpserver的最大连接数在程序中怎么控制?
如题.若是用maxconnections控制,望给出代码,别的方式也可以,谢谢

[解决办法]
大概是这个意思，要做到更稳定你想办法了。看代码：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPServer;

type
TForm1 = class(TForm)
idtcpsrvr1: TIdTCPServer;
procedure idtcpsrvr1Connect(AThread: TIdPeerThread);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure idtcpsrvr1Disconnect(AThread: TIdPeerThread);
private
{ Private declarations }
FList: TList;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.idtcpsrvr1Connect(AThread: TIdPeerThread); //连接时控制
begin
if FList.Count>5 then
begin
AThread.Stop;
AThread.Terminate;
end
else
FLIst.Add(AThread);

end;

procedure TForm1.idtcpsrvr1Disconnect(AThread: TIdPeerThread); //断开时控制 
begin
 FList.Remove(AThread);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FList:= TList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 FList.Free;
end;



end.