Richedit - Excel

[shoulder]

Hola tengo un problema, cuando paso la informacion de un richedit a una celda de excel me permite pasar hasta 40 lineas, Como hago para que me entre forma completa en la columna.
Gracias,

Ejemplo.



Libro.Columns[2].ColumnWidth := 30;
....
i := i + 2;

Libro.Cells [I,2] := richedit1.Text;
Libro.columns[2].autofit;
libro.Range[lIbro.Cells [I,2], lIbro.Cells [I,2]].font.size := 7;