Webbrowser, проблемы

[_ZixeL_]

Приветствую. Помогите решить проблему, пожалуйста.
Есть webbrowser, через который провожу авторизацию на qip.ru

procedure TMForm.WBDocumentComplete(ASender: TObject; const pDisp: IDispatch;
  const URL: OleVariant);
begin
if pDisp = (ASender as TWebBrowser).Application then
 begin
  case ql of
  -1:begin end;
   0:begin DateQip; end;
   1:begin CheckValidQip; end;
   2:begin GoHL; end;
  end;

 end;
end;

procedure TMForm.Button1Click(Sender: TObject);
begin
WB.Navigate('http://m.qip.ru/m/login?retpath=http://m.mail.qip.ru');
ql := 0;
end;

procedure TMForm.DateQip;
var html: Variant;
    i: Integer;
begin
html := WB.OleObject.Document.forms.item(0).elements;
for i := 0 to (html.Length - 1) do
  begin
   if (html.item(i).name = 'login') then html.item(i).value := email;
   if (html.item(i).name = 'password') then html.item(i).value := pass;
   if (html.item(i).value = 'Войти') then html.item(i).click;
  end;
 ql := 1;
end;

procedure TMForm.CheckValidQip;
var html: Variant;
    i: Integer;
begin
 page := GetHtmlSource(WB);
 if Pos('Входящие', page) <> 0 then
  begin
  validQIP := true;
  WB.Navigate('http://m.mail.qip.ru/~Inbox;');

  ql := 2;
  end
  else
  begin
   if Pos('Создание почтового ящика', page) <> 0 then
    begin
     if (WB.OleObject.Document.all.tags('button').item(0).type = 'submit') then
      WB.OleObject.Document.all.tags('button').item(0).click;
     ql := 2;
    end
    else
    begin
       validQIP := false;
    end;
  end;

end;

procedure TMForm.GoHL;
begin
WB.Navigate('****');

end;

Данный код у меня на ПК ( Windows 7 ) прекрасно работает. Если же запустить его на серверной ОС (2007, 2008, 2012), то код просто тормозит после авторизации, т.е. процедура CheckValidQip; не выполняется.
Не могу понять в чем проблема. Эмулирую так:

procedure TMForm.EditReg;
Var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.CreateKey('\Software\Microsoft\Internet Explorer\Main');
Reg.CreateKey('\Software\Microsoft\Internet Explorer\Main\FeatureControl');
Reg.CreateKey('\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION');
Reg.OpenKey('\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', true);
Reg.WriteInteger('MF.exe', 11001);
end;

В настройках ИЕ все нормально, вроде.
Буду благодарен, если направите в нужную сторону.