Чтобы сделать перенос слов в ячейке, установите свойство WrapText объекта Range.
Delphi:
ASheet.Range['A1', EmptyParam].WrapText := True; ASheet.Range['A1', EmptyParam].EntireRow.AutoFit;
WrapText Property