procedure TForm1.Button1Click(Sender: TObject); var I, J: Integer; begin with cxSpreadSheet1.Sheet do for I := SelectionRect.Left to SelectionRect.Right do for J := SelectionRect.Top to SelectionRect.Bottom do with GetCellObject(I, J) do try SetCellText(IntToStr(I) + ‘ ‘ + IntToStr(J)); Style.Font.Size := 12; Style.Font.Style := [fsItalic] finally Free; end; end;