Witam, piszę prosty programik, który zmienia ustawienia proxy IE z poziomu delphi za pomocą rejestru. Mamy Memo z listą proxy, kopiujemy z niej do Edita dany adres, za pomocą buttona ustawiamy wybrane proxy. Drugi button sluży do nawigacji webbrowsera. Całość wygląda tak:

 unit Unit1;
interface
uses
  Winapi.Windows, Registry, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw;
type
  TForm1 = class(TForm)
        WebBrowser1: TWebBrowser;
        Edit1: TEdit;
        Edit2: TEdit;
        Memo1: TMemo;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Button1: TButton;
        Button2: TButton;
        procedure Button2Click(Sender: TObject);
        procedure Button1Click(Sender: TObject);
  private
        { Private declarations }
  public
        { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
myReg: TRegistry;
begin
myReg := TRegistry.Create;
myReg.RootKey := HKEY_CURRENT_USER;
if myReg.OpenKey('Software\Microsoft\Windows\CurrentV ersion\Internet Settings', TRUE) then
begin
myReg.WriteString('ProxyServer', +Edit2.Text);
myReg.WriteInteger('ProxyEnable', 1);
end;
myReg.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Webbrowser1.Navigate(Edit1.Text);
end;
end.

Problemy:

  1. Niestety średnio działa zmiana proxy, (zmienia wpis w rejestrze, a nijak to się ma naszego IP) czy ktoś jest w stanie wskazać gdzie leży błąd?
  2. Czy jest możliwość aby lista adresów była umieszczona w CoboBoxie, a zaznaczony item = Edit2.Text coś na zasadzie:
    Edit2.Text:=CoboBox1.Selected.Item;

Z góry dzięki za pomoc