socks checker

[newmister]

Приветствую.
В интернете полно статей, как проверить http проксю. Все хорошо, везде почти одно и то же, но, вроде, говорят работает. Ну ладно, рад за них. А что делать, если надо проверить socks Проксю? Как определить ее версию?

пробовал TIdHTTP+IdIOHandlerSocket+IdSocksIn fo, но IdSocksInfo требует указывать версию прокси. Ну плюс конечно ошибки. Вот что у меня было:

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSocksInfo1.Host:='123.52.130.3';
IdSocksInfo1.Port:=1080;
IdHTTP1.Connect(x);
If IdHTTP1.Connected then Edit1.Text:='Yes';,
end

x=1000 - Connection Time Out; x=2000 Socket Error #10051

procedure TForm1.Button2Click(Sender: TObject);
begin
IdSocksInfo1.Host:='123.52.130.3';
IdSocksInfo1.Port:=1080;
memo1.Text:=Idhttp1.Get('www.ya.ru')
end

Socket Error #10051

Как проверить хотя бы 1 сокс-проксю на валидность и определить её версию?

[newmister]

I'm sorry, but UP.
I need at this.