баг с Proxy

[designer999]

Здравствующие
вот когда использую такой код, то всё отлично

procedure TForm5.Button4Click(Sender: TObject);
var PIInfo : PInternetProxyInfo;
begin
New (PIInfo) ;
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ; // Тип доступа в интернет - через Proxy сервер
PIInfo^.lpszProxy := 112.65.135.54:8080; // указать прокси напр. 195.43.67.33:8080
PIInfo^.lpszProxyBypass := ''; // Список адресов, доступ к которым возможен минуя Proxy сервер
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info),0);
Dispose (PIInfo) ;
end;

А когда пробую так то прокси толи не подключается толи....,страница в браузере не грузится

procedure TForm5.Button4Click(Sender: TObject);
var PIInfo : PInternetProxyInfo;
begin
New (PIInfo) ;
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ; // Тип доступа в интернет - через Proxy сервер
PIInfo^.lpszProxy := PAnsichar(Form1.edit5.text{':'}+Form1.edit6.text); // указать прокси напр. 195.43.67.33:8080
PIInfo^.lpszProxyBypass := ''; // Список адресов, доступ к которым возможен минуя Proxy сервер
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info),0);
Dispose (PIInfo) ;
end;

если делаю Pchar(Form1.edit5.text{':'}+Form1.e dit6.text); то программа вообще не грузится, выбывает такую ошибку


как можно же загрузить адрес и порт с эдитов ?

[Пепел Феникса]

procedure TForm5.Button4Click(Sender: TObject);
var PIInfo : PInternetProxyInfo;
     addr,port:AnsiString;
begin
New (PIInfo) ;
addr:=Edit5.Text;
port:=Edit6.Text;
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ; // Тип доступа в интернет - через Proxy сервер
PIInfo^.lpszProxy := PAnsichar(addr+':'+port); // указать прокси напр. 195.43.67.33:8080
PIInfo^.lpszProxyBypass := ''; // Список адресов, доступ к которым возможен минуя Proxy сервер
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info),0);
Dispose (PIInfo) ;
end;

а если так?

[designer999]

программа также работает как и в
PIInfo^.lpszProxy := PAnsichar(Form1.edit5.text{':'}+For m1.edit6.text);
но страница в браузере не грузится