WorkBook.Sheets[1].Range['A1','D5'].Font.Bold := true;
WorkBook.Sheets[1].Range['B3','B3'].Value := 100;
WorkBook.Sheets[1].Range['B2','C5'].Merge(False);