function getridofTag(const html : string)  : string;
var
        i : integer;
        hantei : boolean;
        w  : string;
begin
        hantei := false;
        result :='';
        for i := 1 to length(html) do begin
           w := html[i];
           if w = '<' then hantei := true;
           if hantei = false then  result := result + w;
           
           if w = '>' then hantei := false;

        end;

end;