Из Мемо в StringGrid и на печать

str->Add(Form21->Memo1->Text);
StringGrid1->RowCount=str->Count+1;
for(int i=0;i<str->Count;i++) StringGrid1->Cells[0][i+1]=str->Strings[i];

TStrings * str (Form21->Memo1->Lines);
StringGrid1->RowCount=str->Count+1;
for(int i=0;i<str->Count;i++) StringGrid1->Cells[0][i+1]=str->Strings[i];

AnsiString adr="",teld="",telm="",zvk="",zdd="";
int i=0;
for(int m=0;m<str->Count;m++)
{
i=0;
adr="";teld="";telm="";zvk="";zdd="";
for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]==(int)' ') break;
  else adr+=str->Strings[m].c_str()[i];
  }
  for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]!=(int)' ') break;
  }
for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]==(int)':') break;
  else teld+=str->Strings[m].c_str()[i];
  }
for(;;i++)
  {
  if((int)str->Strings[m].c_str()[i]!=(int)':') break;
  }

#include <ComObj.hpp>
...
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//Это просто для запонения грида чем-нибудь
  StringGrid1->Cells[0][0] = "Шапка 1";
  StringGrid1->Cells[1][0] = "Шапка 2";
  StringGrid1->Cells[2][0] = "Шапка 3";
  StringGrid1->Cells[3][0] = "Шапка 4";
  StringGrid1->Cells[4][0] = "Шапка 5";
  String s = "";
  for(int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
   for(int j = 0; j < StringGrid1->ColCount; j++)
    {
      for(int k = 0; k < 5; k++)
       s += IntToStr(i + j);
     StringGrid1->Cells[j][i] = s;
     s = "";
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//Открыли Ексель
  Variant app, books, book, sheet, Rang, vCell;
  app = CreateOleObject("Excel.Application");
  app.OlePropertySet("Visible",true);
  books = app.OlePropertyGet("Workbooks");
  books.OleProcedure("Add");
  book = books.OlePropertyGet("Item",1);
  sheet = book.OlePropertyGet("WorkSheets",1);
//Сформировали и записали вариантный массив из StringGrid
  String S;
  const int bounds[4] = {0, StringGrid1->RowCount, 0, StringGrid1->ColCount};
  Variant vData = VarArrayCreate(bounds, 3, varVariant);
  for(int i = 0; i < StringGrid1->RowCount; i++)
   for(int j = 0; j < StringGrid1->ColCount; j++)
    {
      if((StringGrid1->Cells[j][i]).IsEmpty()) S = "";
      else S = StringGrid1->Cells[j][i];
      vData.PutElement(S, i, j);
    }
  Rang = sheet.OlePropertyGet("Range",sheet.OlePropertyGet("Cells",1,1),
         sheet.OlePropertyGet("Cells",StringGrid1->RowCount,StringGrid1->ColCount));
  Rang.OlePropertySet("Value",vData);
//Оформляем ширину столбцов
  sheet.OlePropertyGet("Cells", 1, 1).OlePropertySet("ColumnWidth",10);
  sheet.OlePropertyGet("Cells", 1, 2).OlePropertySet("ColumnWidth",20);
  sheet.OlePropertyGet("Cells", 1, 3).OlePropertySet("ColumnWidth",15);
  sheet.OlePropertyGet("Cells", 1, 4).OlePropertySet("ColumnWidth",15);
  sheet.OlePropertyGet("Cells", 1, 5).OlePropertySet("ColumnWidth",30);
//Оформляем выравнивание и шрифт шапки
  vCell = sheet.OlePropertyGet("Range",sheet.OlePropertyGet("Cells",1,1),sheet.OlePropertyGet("Cells",1,5));
  vCell.OlePropertySet("HorizontalAlignment",-4108);
  vCell.OlePropertyGet("Font").OlePropertySet("Bold",true);
//Рисуем границы ячеек
  for(int i = 1; i <= StringGrid1->RowCount; i++)
   for(int j = 1; j <= StringGrid1->ColCount; j++)
    {
      vCell = sheet.OlePropertyGet("Cells").OlePropertyGet("Item", i, j);
      vCell.OlePropertyGet("Borders",10).OlePropertySet("LineStyle",1);
      vCell.OlePropertyGet("Borders",10).OlePropertySet("Weight",2);
      vCell.OlePropertyGet("Borders",7).OlePropertySet("LineStyle",1);
      vCell.OlePropertyGet("Borders",7).OlePropertySet("Weight",2);
      vCell.OlePropertyGet("Borders",8).OlePropertySet("LineStyle",1);
      vCell.OlePropertyGet("Borders",8).OlePropertySet("Weight",2);
      vCell.OlePropertyGet("Borders",9).OlePropertySet("LineStyle",1);
      vCell.OlePropertyGet("Borders",9).OlePropertySet("Weight",2);
    }
}
//---------------------------------------------------------------------------