с WebBrowser-а не се получи, затова използвам ТNMHTTP - незнам дали ще е удачно/удобно...

procedure TForm1.Button2Click(Sender: TObject);

begin

//искаш хедъра

NMHTTP1.Head('http://www.dir.bg');

end;



Function GetProperty(Header : String; PropertyName : String) : String;

//cut-ваш си стринга който ти трябва, 

//функцията подлежи на каквото ти хареса подобряване :-)

var i,l : LongInt;

    s : String;

begin

s := '';

i := pos(PropertyName,Header);

if i > 0 then begin

   delete(Header,1, i + Length(PropertyName));

   Header := Trim(Header);

   l := length(Header);

   s := '';

//болката е края на property-то - някакъв EOL /или край на стринга, ест/, 

//и понеже няма яснота кога какъв ще е... та това работи, ама...

   for i := 1 to l do begin

       if ord(Header{i}) > 31 then begin

          s := s + Header{i};

       end else begin

          break;

       end;

   end;

   result := s;

end else begin

   result := '';

end;

end;



procedure TForm1.NMHTTP1Success(Cmd: CmdType);

begin

//проверяваш каква команда е успешна

case Cmd Of

     //ако е от искането на хедъра - обработваш го

     CmdHEAD : memo1.lines.add(GetProperty(NMHTTP1.Header, 'Content-Type'));

     CmdGET : memo1.lines.add(NMHTTP1.Body);

end;

end;