With workbook.sheets[1].Range['A3','A3'] do begin if MergeCells then MergeArea[1,1].Value := 100; end;
Workbook.Sheets[1].Range['A1', 'F1'].MergeCells := true;