[JeReK5542]

Доброе утро!
Помогите с ошибкой.
Есть код:

Код:

procedure TForm2.wb1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  f, i: integer;
  res_post: string;
begin
for f := 0 to wb1.OleObject.Document.forms.Length - 1 do
    begin
      for i := 0 to wb1.OleObject.Document.forms.Item(f).elements.Length - 1 do
            if wb1.OleObject.Document.forms.Item(f).elements.item(i).name = 'vk_page_userid'
              then
                res_post:=wb1.OleObject.Document.forms.Item(f).elements.item(i).value;
                edt1.Text:=res_post;
                stbsht5.PageControl.ActivePageIndex:=0;
                Get_MyPageInfo(edt1.Text);
    end;
end;

У мен есть html код в программе, при загрузке в webbrowser1(wb1) выдает ошибку "Access violation at address 00491024", после ошибки код всеравно загружаеться.
Процедура

Код:

procedure TForm2.wb1BeforeNavigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool);

отлавливает значение передаваемое методом POST в программе

<form action="" method="POST"><input type="hidden" name="page_userid" value="'+str+'"><input type="submit" name="page_userid_submit" value="Открыть"></form>

зачение "page_userid" и нужно узнать.
Выходит 2 проблемы:
1) Ошибка "Access violation" когда нажимаю на кнопку, в которой html код загружаеться в wb1.
2) У меня в коде много кода

<form action="" method="POST"><input type="hidden" name="page_userid" value="'+str+'"><input type="submit" name="page_userid_submit" value="Открыть"></form>

только с разными значениями. Когда я нажимаю на кнопку "Открыть", оно находит все значения из поля "page_userid", а нужно, чтобы было только то, где нажал пользователь.