var
SL:TStringList;
idoc: IHTMLDocument2;
cols:IHTMLElementCollection;
e:IHTMLElement;
a:IHTMLAnchorElement;
V:OleVariant;
i:integer;

begin

//скачиваю страницу записываю ее в SL
...
  // парсю документ
  idoc := CoHTMLDocument.Create as IHTMLDocument2;
  if not assigned(idoc) then exit;

  try
  v:=VarArrayCreate([0,0],VarVariant);
  v[0]:=SL.Text;
  idoc.write(PSafeArray(TVarData(v).VArray));
  cols:=(idoc.all.tags('FORM') as IHTMLElementCollection);
  e:=cols.item('listmessages',0) as IHTMLElement ;
  if e=nil then exit;
  cols:=(e.all as IHTMLElementCollection);
  for i:=0 to  cols.length-1 do
   if ((cols.Item(i,0) as IHTMLElement).tagName)='A' then
   begin    
    if  pos('ТЕКСТССЫЛКИ',AnsiUpperCase((cols.Item(i,0) as IHTMLElement).InnerText))>0 then
     
     begin        
       a:=cols.Item(i,0) as IHTMLAnchorElement;      
       result:=a.href; // здесь получаю 'about:blank'+a.href
       break;
     end;

   end;

   finally
   idoc.close;
   idoc:=nil;
  end;

end;