браузер с прокси

[megostudent]

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw, urlmon, wininet;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
PIInfo: PInternetProxyInfo;
proxy: string;
char: PChar;
d: integer;
begin
memo2.Clear;
webbrowser1.Navigate('http://pmis.kherson.ua/mis_herson_mis_tavrija_2013/');
memo2.Text:=memo1.Lines[i];
proxy:=memo2.Text;
d:=length(proxy);
char:=Addr(proxy[d]);
New(PIInfo);
  PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  //  Изменение  настроек ПРОКСИ
  PIInfo^.lpszProxy := PChar(char);
  PIInfo^.lpszProxyBypass := PChar('');
  //  Список адресов, доступ к которым возможен минуя Proxy сервер
  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo,
    SizeOf(Internet_Proxy_Info), 0);
    Dispose(PIInfo);
i:=i+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;
i:=0;
end;

end.

ошибка в этой строке

PIInfo^.lpszProxy := PChar(char);

до мудрений с переменными было просто

PIInfo^.lpszProxy := PChar(memo2.text);

В мемо1 добавляем список с прокси, затем в мемо2 берем 1 строку из мемо1 и заходим на сайт под прокси, затем +1 к переменной которая отвечает за строку в мемо, чтобы перейти на 2 проксик.
а что не так не врублюсь

[megostudent]

проблема частично решена

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw, urlmon, wininet;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
PIInfo: PInternetProxyInfo;

begin
memo2.Clear;
webbrowser1.Navigate('http://pmis.kherson.ua/mis_herson_mis_tavrija_2013/');
memo2.Text:=memo1.Lines[i];
New(PIInfo);
  PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  //  Изменение  настроек ПРОКСИ
  PIInfo^.lpszProxy := PAnsiChar(memo2.Text);
  PIInfo^.lpszProxyBypass := PAnsiChar('');
  //  Список адресов, доступ к которым возможен минуя Proxy сервер
  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo,
    SizeOf(Internet_Proxy_Info), 0);
    Dispose(PIInfo);
i:=i+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;
i:=0;
end;

end.

но этот в браузере пишет что прокси сервер не отвечает, но иногда загружает страницу и на ней не видно картинок

[Pearl777]

прокси сервер не отвечает, но иногда загружает страницу и на ней не видно картинок

Значит такой прокси сервер.

[megostudent]

только когда я использую эти проксики через оперу, все загружает))