请问各位生成的Excel设置单元格的垂直居中和水平居中怎么控制(10分)

请问dephi中生成的Excel设置单元格的垂直居中和水平居中的代码怎么写？

设置单元格的
HorizontalAlignment,VerticalAlignment为-4108.
注意：必须为-4108。

给你一段源代码，请参考一下：
var
　Range: Variant;
begin
　Range := v.Workbooks[1].WorkSheets['数据录入'].Range['A2:M2’];
//单元格从A2到M2
Range.Merge;
//合并单元格
　Range.Rows.RowHeight := 20;
//设置行高
　Range.Borders.LineStyle := 1;
//加边框
　Range.Columns[2].ColumnWidth := 12;
// 设置列宽
　Range.FormulaR1C1 := '标题';
　Range.HorizontalAlignment := 3;
//水平对齐方式
//对于 Range.HorizontalAlignment := 3；
//其中1：常规；2：左缩进；3：居中；4：靠右；5：填充
//对于 Range.VerticalAlignment := 2；
//其中1：靠上；2：居中；3：靠下；4：两端对齐
　Range.VerticalAlignment := 2;
//垂直对齐方式
　Range.Characters.Font.Name := '宋体';
//字体
　Range.Characters.Font.FontStyle := '加粗';
　Range.Characters.Font.Size := 12;
　Range.Characters.Font.OutlineFont := False;
//是否有下划线
　Range.Characters.Font.ColorIndex := xlAutomatic;
//颜色
end;

　　其他的属性可以察看MSDN或者其他资料。

多人接受答案了。