Ошибка: Invalid floating point operation

[volod3000]

Здравствуйте.

Не пойму в чем проблема. Компилирую в 32-х битной (Delphi xe7) все нормально, а в 64-х битной ошибка:
Invalid floating point operation
Вот код, подскажите

function Readhtml(var IdHTTP1:TIdHTTP; out dolBuy,dolSale: String): String;
var
  doc, el: OleVariant;
  i: Integer;
  HTML : String;

begin
   HTML:= '';  

  try

   HTML:= IdHTTP1.Get('http://cashexchange.com.ua/USD.aspx');
   IdHTTP1.Disconnect ;
   
  except on E:Exception do begin
      IdHTTP1.Socket.Close;
  end ;

 end;

    doc := coHTMLDocument.Create as IHTMLDocument2;
    doc.write(HTML);
    doc.close;

      for i := 0 to doc.body.all.length - 1 do
          begin
            el := doc.body.all.item(i);
                                               //
            if(el.tagName = 'SPAN')and(el.id = 'ctl00_ContentPanel_GridRate_ctl03_LblBuy') then
              dolBuy:= el.innerText;
            if(el.tagName = 'SPAN')and(el.id = 'ctl00_ContentPanel_GridRate_ctl03_LblSale') then
              dolSale:= el.innerText;
           

          end;

end;

[Stilet]

На какой строке?

[volod3000]

Где-то тут:

    doc := coHTMLDocument.Create as IHTMLDocument2;
    doc.write(HTML);
    doc.close;

[Stilet]

Хм... Я пользуюсь такой схемой:

  innerHTML:=VarArrayCreate([0,0],varVariant);
  innerHTML[0]:=Content; 
  Document.write(PSafeArray(TVarData(innerHTML).VArray));
  Document.close;

Где innerHTML:Variant; и Content:String;
Хотя вот насчет разницы в 32 и 64 битных эксплорерах не в курсе.

[volod3000]

Мне почему-то кажется,что это в самом компоненте Indy собака зарыта.