ADO쿼리로 Excel의 경로를 읽는 것입니다.

버튼을 클릭하면 아래 구문이 실행됩니다.
잘 됩니다.
문제는요 여러번 사용하다보면 버튼을 눌러도 안됩니다.
프로그램이 멈추는 것이죠....재부팅.... 쩝...
무었이 잘못된 것일까요?


try
    Excel := CreateOleObject('Excel.Application');
    Excel := ('[APP.MAXIMIZE()]');
  Except
       on EOleError do Exit;
  end;
   if OpenDialog1.Execute then begin
      try
        with ADOQuery1 do begin
          close;
          ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
                              OpenDialog1.FileName +
                              ';Extended Properties=Excel 8.0;Persist Security Info=False';
          SQL.Clear;
      
          SQL.Text := 'Select * From ['+fname+']';  
          open;
        end;
        ac_path.Text := OpenDialog1.FileName;
      Except
         Excel.Quit;
         Showmessage('Excel 파일을 찿을 수 없습니다.');
      end;
   end;