DWORD WINAPI ServAccept(LPVOID lpParam)
{
	struct sockaddr_in ClientAddr;
	int iSize=sizeof(ClientAddr);
	SOCKET sConnect;
	while(true)
	{
		if((sConnect=accept(*(SOCKET*)lpParam,(sockaddr*)&ClientAddr,&iSize))==INVALID_SOCKET)
			break;
		Connecting((LPVOID)sConnect);
//		if(CreateThread(0,0,Connecting,(LPVOID)sConnect,0,0)==0)
//			break;
	}
	return 0;
}

procedure ServAccept(lpParam: pointer); stdcall;
var
  iSize     : integer;
  sConnect  : TSOCKET;
  ClientAddr: PSockAddr;
begin
  iSize:=sizeof(ClientAddr);
  while true do
    begin
      sConnect:=accept(TSOCKET(lpParam),ClientAddr,@iSize);
      if sConnect = INVALID_SOCKET then
        break; 
      Connecting(pointer(sConnect));
    end;
  (*  if(CreateThread(0,0,Connecting,(LPVOID)sConnect,0,0)==0)*)
  (*   break;*)
end;