Synapse и прокси

[StoxFT]

Доброго времени суток. Сразу хочу объясниться что только слез с Инди и начал использовать Синапс, так что прошу Вас быть информативными. В своём коде я использую следующую процедуру:

	procedure NextProxy(var H: THTTPSend);
	var
		T, PH, PP: String;
		D, j: Integer;
		Res: Boolean;
	begin
		H.Timeout := 8000;
		H.Sock.SocksTimeout := 8000;
		repeat
			H.Clear;
			j := Trunc(Random(Proxies.Count));
			T := Proxies[j];
			D := Pos(':', T);
			PH := Copy(T, 0, D - 1);
			PP := Copy(T, D + 1, 5);
			Res := False;
			with H do
			begin
				MimeType := Mime;
				ProxyHost := PH;
				ProxyPort := PP;
				if not HTTPMethod('GET', URL) then
				begin
					Clear;
					with Sock do
					begin
						Res := False;
						MimeType := Mime;
						SocksResolver := False;
						SocksIP := PH;
						SocksPort := PP;
						SocksType := ST_Socks5;
						if not HTTPMethod('GET', URL) then
						begin
							Res := False;
							Clear;
							MimeType := Mime;
							SocksIP := PH;
							SocksPort := PP;
							SocksType := ST_Socks4;
							SocksResolver := True;
							if not HTTPMethod('GET', URL) then
								Res := False;
						end
						else
						begin
							Res := True;
							Break;
						end;
					end;
				end
				else
				begin
					Res := True;
					Break;
				end;
			end;
		until Res = True;
	end;

По задумке, процедура должна:
- Получить клиент THTTPSend
- Скопировать одну случайную прокси из стринглиста Proxies
- Попробовать с ней подключиться к сайту, указанному в переменной UR с помощью клиента из пункта 1.
- В случае удачи - оставлять как есть, в ином случае - вернуться к пункту 2.

Скажите мне, где я не прав и как более правильно это следовало бы написать?

(Mime - константа с маймтипом, заметка - прокси могут быть разного типа). Заранее благодарен за ИНФОРМАЦИЮ.

[StoxFT]

Ап. Друзья, помогите информацией...

[Человек_Борща]

Присоединяйся: http://programmersforum.ru/showthread.php?t=230912
Вместе будем думать..