Задача слудующая: мне нужно определить поля:
User-agent:
Accept-Language:
Которые браузер передаёт на сервер при каждом запросе. Как это сделать?
Мои догадки - что сделать это можно по средствам парсинга самих заголовков. Но доя этого, необходимо как то получить к ним доступ.
Возможно ли это?

а так не работает?

procedure TForm3.Button1Click(Sender: TObject);
var
URL: OleVariant;
Flags: OleVariant;
TargetFrameName: OleVariant;
PostData: OleVariant;
Headers: OleVariant;
begin
 URL:='http://www.delphimaster.ru';
 Flags:=2;
 TargetFrameName:=Null;
 PostData:=Null;
 Headers:='Connection: keep-alive'#10'Content-Type: text/html'#10'Accept-Language: ru'#10'Accept: text/html, */*'#10'User-Agent: Mozilla/3.0'#10;
 WebBrowser1.Navigate2(URL,Flags,TargetFrameName,PostData,Headers);
end;

procedure TForm3.WebBrowser1BeforeNavigate2(ASender: TObject;
 const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
 Headers: OleVariant; var Cancel: WordBool);
begin
 memo1.Lines.Add(Headers);
end;