خاصية Columns

With Workbook.Sheets[1].Range['A1', 'F10'] do begin
  Columns[2].Font.Bold := True;
end;

With Workbook.Sheets[1].Range['A1', 'F10'] do begin
  Columns[3].Value := Columns[2].Value;
end;

MessageDlg('The selection contains ' +
           inttostr(Workbook.Worksheets[1].Selection.Columns.Count) + ' columns.',
           mtInformation, [mbOk], 0);