[DELPHI] Plocka innehåll från web

function ExtractHTMLText(const Str : string ) : string;
var
  Res : string;
  ix : Integer;
  InBrackets : Integer;
begin
  InBrackets:= 0;
  Res:= '';
  for ix:= 1 to Length(Str) do
  begin
    if Str[ix] = '<' then
      inc(InBrackets)
    else if Str[ix] = '>' then
      dec(InBrackets)
    else if ( inbrackets = 0 ) then
      Res:= Res + str[ix];
  end;
  Result := Res;
end;