안녕하세요~~!!

델파이 6에 엑셀 관련 컴퍼넌트를 사용해서 그리드에있는 내용을 엑셀로 변환하는 작업을 하고 있는데요..
이상하게.. 잘 않되는 군요..

소스 올려 드리니 함 보시고 열려있는 엑셀에서 쉬트만 추가하는 방법좀 알려 주세요..^^

try
     EX.Connect;
   except
     MessageDlg('Excel과 연결되지 않습니다.',mtError,[mbOk],0);
     Abort;
   end;

   try
     Cnt := 1;
     Ck := 1;
     EX.Visible[0] := True ;
     EX.Caption :='고객(매출처)관리';
     EWB.ConnectTo(EX.workbooks.add(xlWBATWorksheet, LCID)); // 연결하기
     EWS.ConnectTo(EWB.worksheets.item['Sheet1'] as _worksheet ); // 연결하기

     with frmPChcoHisF10.qrChco do begin
        Filtered := False;
        Filter := 'Chcode = ''' + frmPChcoHisF10.grdF02.Cells[0,frmPChcoHisF10.grdF02.Row] + '''';
        Filtered := True;
        First;
        While Not Eof Do Begin
           if EX.Workbooks.Count = 0 then
              Ex.Workbooks.Add(xlWBATWorksheet, LCID)
           else begin
              if Ck <> 1 then EX.Worksheets.Add() // <- 여기에 무얼 써야 하죠? 방법좀 알려주세요..^^
           end;
           EWS.Name:= FieldByName('ChName').AsString;

           with EWS do
           begin          
           .
           .
           .
           .
       Next;
        end;
        EWS.Columns.AutoFit;
     end;

   except
     on E: Exception do begin
       showmessage(E.message);
       EX.Disconnect;
     end;
   end;