看以下代码吧:
procedure TForm1.btn1Click(Sender: TObject);
var temp_cellformat: f1cellformat;
//定义单元格格式变量
begin
temp_cellformat:=f1book1.CreateNewCellFormat;//创建
temp_cellformat.MergeCells:=true;
//设定单元格属性为合并的
f1book1.SetSelection(1,1,1,10);
//选择要合并的单元格,假设要合并(1,1)至(1,10)单元格
f1book1.SetCellFormat(temp_cellformat);
//把置好的单元格属性赋给所选的单元格
end;