WorkBook.Sheets[1].RCRange[1, 1, 5, 4].Font.Bold := true;
WorkBook.Sheets[1].RCRange[3, 2, 3, 2].Value := 100;
WorkBook.Sheets[1].RCRange[2, 2, 5, 3].Merge(False);