버튼을 클릭해야만 DBGrid에 있는 내용을 Excel로 보내주도록 코딩을 했습니다.
근데!!!!!
모든 DBEdit 박스에서 엔터를 치면 엑셀이 실행되면서 DBGrid 내용이 엑셀로
옮겨지더라구요.....
왜 이런현상이 일어나는거죠?
답변이나 수정 좀 부탁드립니다.

<<<<<<<<<소스첨부 하겠습니다.>>>>>>>>>>>>>>
소스는 팁란에서 도움을 받았습니다.
procedure TfrmEquip.bitExpendExcelClick(Sender: TObject);
var
        v : variant;
        i, j : integer;
begin
        v := CreateOLEObject('Excel.Application');
        v.workBooks.add;

        i := 0;
        v.cells[1,1].value := '소모품코드';
        v.cells[1,2].value := '거래처';
        v.cells[1,3].value := '제품명';
        v.cells[1,4].value := '모델명';
        v.cells[1,5].value := '사용장비';
        v.cells[1,6].value := '부서명';
        v.cells[1,7].value := '수량';
        v.cells[1,8].value := '단위';
        v.cells[1,9].value := '단가';
        v.cells[1,10].value := '금액';
        v.cells[1,11].value := '구입날짜';
        v.cells[1,12].value := '비고';

        qryExpend.First;
        While not qryExpend.Eof do begin
                i := i + 1;
                for j := 1 to DBGrid9.FieldCount do begin
                        v.cells[i+1,j].value := qryExpend.Fields[j-1].AsString;
                end;
                qryExpend.Next;
        end;

        v.visible := True;
end;