DWORD WINAPI check(LPVOID lParam)
{
	/*WSADATA wsd;
	WSAStartup(MAKEWORD(2,2),&wsd);*/
	char Ip[30],msg[100]="                         ";
	char *port=new char[30];
	char *indata=new char[1024*256];
	memset(indata,NULL,1024*256);
	char *result=new char[1024*256];
	memset(result,NULL,1024*256);
	SOCKADDR_IN adr;
	struct timeval timeout;
	ZeroMemory(&timeout,sizeof(timeval));
	timeout.tv_sec= 9;
	SOCKET s;
	ZeroMemory(&adr,sizeof(adr));
	for(int i=0;i!=Form1->ListBox1->Count;i++)
	{
		strcpy(Ip,Form1->ListBox1->Items->operator [](i).c_str());
		strcpy(port,Form1->ListBox1->Items->operator [](i).c_str());
		strtok(Ip,":");
		port+=strlen(Ip)+1;
		adr.sin_family=AF_INET;
		adr.sin_addr.s_addr=inet_addr(Ip);
		adr.sin_port=htons(atoi(port));
		WSASetLastError(0);
		s=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
		setsockopt(s,SOL_SOCKET,SO_RCVTIMEO,(char*)&timeout,sizeof(timeval));
		connect(s,(sockaddr*)&adr,sizeof(adr));
		send(s,msg,100,0);
		Form1->Memo1->Lines->Add("1\r");
		recv(s,indata,1024*256,0);
		Form1->Memo1->Lines->Add("2\r");
		Form1->Memo1->Lines->Add("Count:"+AnsiString(i)+"\r");
		//wsprintf(result,"Proxy: %s:%s\rAnswer:\r%s\rSocketError: %d",Ip,port,indata,WSAGetLastError());
		//Form1->Memo1->Lines->Add(result);
		strtok(indata,"\r\n\r\n");
		Form1->Memo1->Lines->Add(AnsiString(indata)+"\r");
		if(strstr(indata,"200")!=NULL)
		{
            Form1->ListBox2->Items->Add(AnsiString(Ip)+":"+AnsiString(port));
        }
		port-=strlen(Ip)+1;
		closesocket(s);
		memset(result,NULL,1024*256);
		memset(indata,NULL,1024*256);
	}
	//WSACleanup();
	return(0);
}