implementation

uses ComObj;

{$R *.DFM}
        :
        :

procedure TFORM.SpeedButton8Click(Sender: TObject);
var
   v: Variant;
   i, j: Integer;
begin
     v := CreateOLEObject('Excel.Application');
     v.workBooks.Add;
     i := 0;
     v.Cells[1,1].Value := '셀명1';
     v.Cells[1,2].Value := '셀명2';
     v.Cells[1,3].Value := '셀명3';
                     :
                     :

     Query1.first;
     while not Query1.Eof do begin
         i := i + 1;
         for j := 1 to N do begin
             v.Cells[i+1,j].Value := Query1.Fields[j-1].AsString;
         end;
         Query1.Next;
     end;
     Query1.Close;
     v.Visible := True;
end;

지가 사용하는 방식인데 도움이 될랑가 모리것네요.
도움이 되었으면 합니다.

그리고 상단에서 ComObj 을 uses 문장에 반드시 선언을 하여야 합니다.

...... ^.^