// Ole actions
  XlApp  := CreateOleObject('Excel.Application');
  XlBook := XlApp.WorkBooks.Add(xlWBATWorksheet);
  XlSheet  := XlApp.WorkBooks[ 1 ].Sheets[ 1 ]; // Active Sheet
  XlSheets := XlApp.Sheets; // Array of Sheets

  if VarType(XlApp) <> VarDispatch then begin  // If we are not connected with MsExcel
   ShowMessage('MS Excel 97 not this installed');
   Exit;
  end;

  // Form actions
  XlApp.Visible := True;
//  SetSpinSheet( 1 );
//  SetTxtToWrite;

    Query1.First;
                  for j:= 0  to DBGridEh1.Columns.Count- 1  do
             begin
             XlSheet.Cells[ 1 ,j+ 1 ].WrapText:=True;
             XlSheet.Cells[ 1 ,j+ 1 ].Font.Bold:=True;
             XlSheet.Cells[ 1 ,j+ 1 ].Font.Name:='geo_times';
             XlSheet.Cells[ 1 ,j+ 1 ].Font.Size:= 10 ;
                XlSheet.Cells[ 1 ,j+ 1 ]:=DBGridEh1.Columns[j].Title.Caption;
             end;
             XlSheet.Cells[ 1 ,DBGridEh1.Columns.Count+ 1 ].WrapText:=True;
             XlSheet.Cells[ 1 ,DBGridEh1.Columns.Count+ 1 ].Font.Bold:=True;
             XlSheet.Cells[ 1 ,DBGridEh1.Columns.Count+ 1 ].Font.Name:='geo_times';
             XlSheet.Cells[ 1 ,DBGridEh1.Columns.Count+ 1 ].Font.Size:= 10 ;
             
             XlSheet.Cells[ 1 ,DBGridEh1.Columns.Count+ 1 ]:='ÂÀÃÀáÃÉËÉ FEE (GEL)';

          for i:= 1  to Query1.Recordcount do
          begin
              for j:= 0  to DBGridEh1.Columns.Count- 1  do
             begin
                 XlSheet.Cells[i+ 1 ,j+ 1 ].Font.Name:='geo_times';
                 XlSheet.Cells[i+ 1 ,j+ 1 ].Font.Size:= 8 ;
                XlSheet.Cells[i+ 1 ,j+ 1 ]:=DBGridEh1.Columns[j].DisplayText;
                  if j in [ 7 , 10 , 12 , 13 , 14 , 15 ] then
                  XlSheet.Cells[i+ 1 ,j+ 1 ].NumberFormat:='0.00';
             end;
                 XlSheet.Cells[i+ 1 ,DBGridEh1.Columns.Count+ 1 ].Font.Name:='geo_times';
                XlSheet.Cells[i+ 1 ,DBGridEh1.Columns.Count+ 1 ].Font.Size:= 8 ;
                 if Query1.FieldByName('RPRGEL').AsFloat<> 0  then
              XlSheet.Cells[i+ 1 ,DBGridEh1.Columns.Count+ 1 ]:='=T'+IntToStr(i+ 1 )+'/S'+
              IntToStr(i+ 1 )+'*O'+IntToStr(i+ 1 )
                else
                XlSheet.Cells[i+ 1 ,DBGridEh1.Columns.Count+ 1 ]:='0';
                XlSheet.Cells[i+ 1 ,DBGridEh1.Columns.Count+ 1 ].NumberFormat:='0.00';
              Query1.Next;
          end;

        XlSheet.Cells [Query1.Recordcount+ 2 , 9 ]:='=sum(I2:I'+intToStr(Query1.Recordcount+ 1 )+')';
        XlSheet.Cells [Query1.Recordcount+ 2 , 12 ]:='=sum(L2:L'+intToStr(Query1.Recordcount+ 1 )+')';
        XlSheet.Cells [Query1.Recordcount+ 2 , 14 ]:='=sum(N2:N'+intToStr(Query1.Recordcount+ 1 )+')';
        XlSheet.Cells [Query1.Recordcount+ 2 , 15 ]:='=sum(O2:O'+intToStr(Query1.Recordcount+ 1 )+')';
        XlSheet.Cells [Query1.Recordcount+ 2 , 17 ]:='=sum(Q2:Q'+intToStr(Query1.Recordcount+ 1 )+')';
        XlSheet.Cells [Query1.Recordcount+ 2 , 18 ]:='=sum(R2:R'+intToStr(Query1.Recordcount+ 1 )+')';
        XlSheet.Cells [Query1.Recordcount+ 2 , 19 ]:='=sum(S2:S'+intToStr(Query1.Recordcount+ 1 )+')';
        XlSheet.Cells [Query1.Recordcount+ 2 , 20 ]:='=sum(T2:T'+intToStr(Query1.Recordcount+ 1 )+')';
        XlSheet.Cells [Query1.Recordcount+ 2 , 21 ]:='=sum(U2:U'+intToStr(Query1.Recordcount+ 1 )+')';

        Range:=XlSheet.Range['A'+intToStr(Query1.Recordcount+ 2 )+':U'+intToStr(Query1.Recordcount+ 2 )];
        Range.Select;
        Range.Columns.Autofit;
        Range.Font.Bold:=True;
        Range.Font.Italic:=True;
        Range.Interior.ColorIndex:= 15 ;
        Range.NumberFormat:='#,##0.00';
        Range.Font.Name:='geo_times';
        Range.Font.Size:= 8 ;