StringGrid1.Cells

[Aleksandr69]

Не пойму в чем проблема

   

begin

Cache:=IdHTTP1.Get('http://search.dmoz.org/search/searchq='+StringGrid1.Cells[1, 1]);///////////////////////////////////////// если тут ставим Edit1.text то все пашет ,если так как сейчас то перестает работать смотри ниже
   Doc:=coHTMLDocument.Create as IHTMLDocument2; 
   V:=VarArrayCreate([0,0], varVariant);
   V[0]:=Cache;
   Doc.Write(PSafeArray(TVarData(v).VArray));
   DocA:=Doc.all.tags('strong') as IHTMLElementCollection;

//вот тут перестает пахать если 
   for i:=1 to DocA.length-7 do //ищем
   begin
   DocElement:=DocA.item(i,0)as IHTMLElement;
   ShowMessage('добавляю в таблицу');
   StringGrid1.Cells[5, 1]:=DocElement.innerText;
   end;
   end;

[Aleksandr69]

все сделал))