[s2004]

Код:

begin
New(PIInfo);
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
PIInfo^.lpszProxy := PChar(edit1.Text);       //суда вводим адрес прокси 192.168.0.1:80
PIInfo^.lpszProxyBypass := PChar('');


UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo,
SizeOf(Internet_Proxy_Info), 0);

Dispose(PIInfo);

вопрос решён