procedure TForm.ButtonClick(Sender: TObject);
var
        ExcelApp, ExcelBook, ExcelSheet : Variant;
        I, J, s : Integer; // 순환변수
begin
        try                                                                     //엑셀이 설치되었있을 경우만 가능
           ExcelApp := CreateOLEObject('Excel.Application');                    //엑셀을 실행
        except
           ShowMessage('Excel이 설치되어 있지 않습니다!!!');
           Exit;
        end;

        try
           ExcelApp.Visible := False;
           ExcelApp.DisplayAlerts := False;

           if OpenDialog1.Execute then begin                                    //엑셀 통합문서 열기
              ExcelBook := ExcelApp.WorkBooks.Open(OpenDialog1.FileName);
              ExcelBook := ExcelApp.WorkBooks.item[1];                          //워크 쉬트 설정
              ExcelSheet := ExcelBook.Worksheets.Item[1];                       //일단 개별문서는 sheet1으로 고정

              SG.RowCount := ExcelSheet.UsedRange.Rows.Count + 1;               //StringGrid 초기화 (Title은 고려하지 않았습니다.)
              SG.ColCount := ExcelSheet.UsedRange.Columns.Count + 1;

              S := 0;
              for I := 1 to EXCELSheet.UsedRange.Rows.count do begin
                  S := i - 2;
                  for J := 0 to ExcelSheet.UsedRange.Columns.count do begin
                      if j = 0 then begin
                         if s > 0 then
                            SG.Cells[J,I] := intTostr(i);                       //스트링그리드에 뿌리기
                      end
                      else
                         SG.Cells[J,I] := VarToStr(ExcelSheet.Cells[I,J]);      //스트링그리드에 뿌리기
                      end;
                  end;
                  ExcelApp.WorkBooks.Close;
                  ExcelApp.quit;
                  ExcelApp := unassigned;
              end;
        except
           on err : exception do begin
              ExcelApp.WorkBooks.Close;
              ExcelApp.quit;
              ExcelApp := unassigned;
              ShowMessage('작업이 취소되었습니다. Data확인요망-'+err.message);
           end;
        end;
           ShowMessage(IntToStr(ExcelSheet.UsedRange.Rows.Count) + '건의 자료를 변환하였습니다');
end;


위의 코딩으론 도저히 개발했다고 할수 없네요...

속도 문제도 그렇고 다운되는 현상도 그렇고...

스트림을 쓰면 될것같은데...

아시는분 리플 좀 부탁드립니다.