procedure Criar;
var
ClientSockets : array[0..2] of TClientSocket;
i : integer;
begin
for i := 0 to sizeof(ClientSockets) do begin
ClientSocket[i] := TClientSocket.Create(Application);
ClientSocket[i].Port := 110;
ClientSocket[i].OnConnect := OnConnect;
ClientSocket[i].OnRead := OnRead;
ClientSocket[i].OnDisconnect := OnDisconnect;
ClientSocket[i].Host := HLine;
BannerCtrl := 0;
SockConnected := false;
UserController;
end;
end;

//Para Ativar
var
Written : Cardinal;
begin
CreateThread(nil, SizeOf(Criar), @Criar, nil, Written);
end;