function TForm1.GetContent(pHtmlSrc : String) : String;
var
  iDoc : IHTMLDocument2;
  v : Variant ;
begin
  idoc := CreateComObject(Class_HTMLDOcument) as IHTMLDocument2;
  try
    idoc.designMode := 'on';
    while idoc.readyState <> 'complete' do
      Application.ProcessMessages;
    v := VarArrayCreate([0, 0], VarVariant);
    v[0] := pHtmlSrc;
    iDoc.Write(PSafeArray(System.TVarData(v).VArray));
    iDoc.designMode := 'off';
    while iDoc.readyState <> 'complete' do
      Application.ProcessMessages;    --- #1
    Result := iDoc.body.outerText;
  except
  begin
    iDoc.close;
  end;
  end;
end;

HTML Source에서 Text만 파싱하려고 하는데 몇몇 HTML 소스를 집어넣었을때
Runtime error라고 뜨며 디버그 하시겠습니까? y/n가 뜹니다..

그러고는 프로그램이 #1에서 무한루프를 돌게 되는데 어떻게 하면 되나요 ㅠ_ㅠ