Application1.Workbooks.Add(NULL, LCID);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
with ExcelWorksheet1.Cells do
begin
Y:=ComboBox1.Text;
F:=ComboBox2.Text;
Item[1,1]:='Deffecive Shoes Return Quantity/Amount List during '+Y;
Item[2,1]:=DatetoStr(Date);
ExcelWorksheet1.Range['a1','e1'].Font.Bold:=True;
ExcelWorksheet1.Range['a1','e1'].Font.Size:=12;
ExcelWorksheet1.Range['a1','o1'].Merge(True);
ExcelWorksheet1.Range['a2','o2'].Merge(True);
Item[3,1]:='Month';
Item[3,3]:='January';
Item[3,4]:='February';
Item[3,5]:='March';
Item[3,6]:='April';
Item[3,7]:='May';
Item[3,8]:='June';
Item[3,9]:='July';
Item[3,10]:='August';
Item[3,11]:='September';
Item[3,12]:='October';
Item[3,13]:='November';
Item[3,14]:='December';
Item[3,15]:='Total';
C:=0;
with adoStoredProc2 do
begin
Close;
Parameters.ParamBy