как циклом фор построчно заполнить мемо

[maloun]

И снова Здраствуйте!
...да это снова я

помогите строками из одного мемо заполнить другое(
я использую цикл for
и пробую так:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int i;
 for(i=1; i<9; i++)// Memo1->Lines->Count-1;   9 строк
   {
  Memo2->  Lines-> Add(Memo1->Text[i]); // Memo1->Lines->Text[i] );
  }
}

[code doctor]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int i;
  for(i=0; i<=Memo1->Lines->Count-1; i++) {
    Memo2->Lines->Add(Memo1->Lines->Strings[i]);
  }
}

или проще :

Memo1->Text = Memo2->Text;