[Aristarh Dark]

Вот этот код прекрасно работает ~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;