procedure TjanHTMLParser.GetParsedLines(alist:TStringlist);var s:string; j,i:integer; obj:TObject; HTMLTag:THTMLTag; HTMLParam:THTMLParam;begin for i:= 1 to parsed.count do begin obj:=(parsed[i-1]);
obj:=(parsed[i-1]);
obj:=TObject(parsed[i-1]);