1. 개발/실행 플랫폼 
  (1) OS : Windows 7
  (2) 개발툴 : Delphi 7
  (3) 사용 Database : 

2. 개발 중인 프로그램 : Web 화면에서 Data 추출하기

3. 질문 내용 
아래 소스중 
    IE01 := CreateOLEObject('InternetExplorer.Application');
    IE01.Visible := True;
      ~
    IE01.Quit;
를 While not EOF(cFile)~ loop 밖에 두었었고 잘 돌아갔었는데 최근 첫번째 화면은 되고 두번째 화면에서 에러나며 정지합니다. 크롬브라우저를 설치한것밖에 없는데....
그래서 아래 소스와 같이 안에 두었더니 돌아가긴 하는데....
1. 원인및 수정방법을 알고싶네요.
2. 코딩시 IE01. 까지 입력하면 창에 다음에 올수있는 기능(? Navigate, Quit, Document, Width 등)이 떠야하는데 왜 안뜰까요? 다른함수는 뜹니다.
3. IE01. 다음에 사용할수 있는 기능이 정리된 자료 구할수 있을까요?

감사합니다. 

소스
procedure TForm1.Button1Click(Sender: TObject);
var
  URL1 = 'http://companyinfo.stock.naver.com/v1/company/c1010001.aspx?cmp_cd=';
  IE01: Variant;
  ovTable: OleVariant;
begin
  AssignFile(FData03,'FDat\SIC-'+DateS+'.txt');    Rewrite(FData03);
  AssignFile(cFile,'SBCMlist.txt');                Reset(cFile);

  While not EOF(cFile) do
  begin
    IE01 := CreateOLEObject('InternetExplorer.Application');
    IE01.Visible := True;

    Readln(cFile,t7,tt,BCM,tt,cname);
    Code := Copy(t7,2,6);
    IE01.Navigate(URL1+Code);
    while IE01.Busy do sleep(500);
    Sleep(1000);                                                       //Error 방지

    ovTable := IE01.Document.all.tags('table').item(1);
    if ovTable.Rows.Item(2).Cells.Item(0).InnerText = '액면가' then    //Error 방지
    begin
      IE01.Document.getElementById('cns_Tab22').Click;                 //분기자료
      ovTable := IE01.Document.all.tags('table').item(12);
      MakeInvC(ovTable);
    end;
    IE01.Quit;
  end;
  CloseFile(cFile);
  CloseFile(FData03);
end;