Delphi 转EXCEL 合并单元格解决方案

废话少说先上传代码，自己看吧！

procedure TForm1.Button10Click(Sender: TObject);
var
  FExcel:Variant;
  FWorkbook:Variant;
  FWorkSheet:Variant;
  XlsFileName:String;
  i,j:Integer;
  Field1,field2,Field3,Field4:string;
  LastField1,LastField2,Lastfield3,LastField4:string;
   savedailog:TSaveDialog;
begin
   savedailog:=TSaveDialog.Create(Self);
   savedailog.Filter:='Excel files (*.xls)|*.XlS';
   if savedailog.Execute then begin
        xlsfilename:=savedailog.FileName;
        savedailog.Free;
     end
   else begin
      savedailog.Free;
      exit;
   end;
  screen.Cursor := crHourGlass;
  Try
     FExcel := CreateOleObject('Excel.application');
  except
     screen.Cursor:=crDefault;
     ShowMessage('出错！没有安装Excel软件！');
     exit;
  end;