1. 개발/실행 플랫폼 
  (1) OS : 윈도우7
  (2) 개발툴 : 델파이7
  (3) 사용 Database : firebird 2.1

2. 개발 중인 프로그램 

3. 질문 내용 

안녕하세요? 
기존 엑셀로 변환했던 자료를 한셀로도 변환해야 하는데
자료도 없고, 잘안되어 도움을 요청드립니다.

아래 코드는 엑셀변환코드이구요, 
한셀로 바꾸기 위해 CreateOLEObject('hcell.Application')처럼 했는데
아래 엑셀변환코드들은 어떻게 바꾸어야 할지..
조그만 힌트나 도움을 부탁드립니다. 

 Try
   XL:=CreateOLEObject('hcell.Application');   //한셀변환
   //XL:=CreateOLEObject('Excel.Application'); //엑셀변환
 Except
   ShowMessage('한셀이 설치되어 있지 않습니다.');
   Exit;
 End;

 Try
   XL.WorkBooks.Add;
   XL.ActiveSheet.Name:='차량 정비 현황'; //엑셀 SheetName

   //타이틀 정의
   XL.Columns[1].Select;
   XL.Selection.NumberFormatLocal:='@'; //일반 문자  처리
   XL.Cells.Item[3, 1]:='차량번호';

   XL.Columns[2].Select;
   XL.Selection.NumberFormatLocal:='@'; //일반 문자  처리
   XL.Cells.Item[3, 2]:='수리 내용';

   XL.Columns[3].Select;
   XL.Selection.NumberFormatLocal:='#,##0'; //통화 처리
   XL.Cells.Item[3, 3]:='수리비';

   ARow:=4;  // 자료 처음 출력 위치

   //필드 자료수 : 3
   XArr:= VarArrayCreate([1, 3], VarVariant);

   While Not QyTemp.Eof Do
    Begin
     With QyTemp Do
      Begin
       XArr[1]:=FieldByName('CarNo').AsString;      //차량번호
       XArr[2]:=Trim(FieldByName('Fix').AsString);  //수리내용
       XArr[3]:=FormatFloat('#,0', FieldByName('FixMoney').AsCurrency); //수리비
      End;

     XL.Range[XL.Cells[ARow, 1],XL.Cells[ARow, 3]].Value := XArr; //자료 뿌려주기.

     QyTemp.Next;

     Inc(ARow);
    End;

   XL.Columns.AutoFit; //엑셀 컬럼 자동 크기 사이즈
   XL.Visible:=True;
   XArr:=UnAssigned;
   XL:=UnAssigned;
 Except
   XArr:=UnAssigned;
   XL:=UnAssigned;
   XL.Quit; //엑셀 종료하기.
   ShowMessage('자료를 엑셀로 변환 중 오류가 발생하였습니다.');
 End;