Вот этот код прекрасно работает ~11Кб
Код:
var
Excel:OLEVariant;
longtext:string;
i:integer;
begin
longtext:='';
for i:=1 to 100 do
longtext:=longtext+inttostr(i)+': 12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890'#13#10;
Excel:=CreateOLEObject('Excel.Application');
Excel.Visible:=true;
Excel.WorkBooks.Add;
Excel.WorkBooks[1].WorkSheets[1].Cells[1,1].Value:=longtext;
longtext:='';
longtext:=Excel.WorkBooks[1].WorkSheets[1].Cells[1,1].Value;
Memo1.Lines.Text:=Longtext;
end;