How to merge two columns with text wrap in Excel using Delphi 5

I am trying to duplicate the following function in Excel using Delphi 5 .

I wish to combine two columns such that a string will wrap into the
second column.

In excel I would

1. highlight the cells
2. Select Format
3. Select Cells
4. Select Alignment
5. Select Textwrap & Merge Cells.

In Delphi the code I am using is

ExcelApplication1.Range['A4','A5'].Merge(True);
ExcelApplication1.Range['A4','A4'].WrapText := True;
ExcelApplication1.Range['A4','A4'].Value := 'Very long string that needs two
columns';

The string does not wrap into the second column.

Can anyone give me any insight as to how to duplicate the Excel funciton?

Dave Crowder