Workbook.Sheets[1].Cells.Rows[2].OutlineLevel := 1;
Workbook.Sheets[1].RCRange[3,1,5,1].Rows.OutlineLevel := 2;
Workbook.Sheets[1].Cells.Columns[3].OutlineLevel := 1;
Workbook.Sheets[1].RCRange[1,2,1,5].Columns.OutlineLevel := 2;