TStringList *list = new TStringList;
  Memo1->Lines->LoadFromFile("a.txt");
  for (int i=3 ; iLines->Count ; i  )
    list->Add(Memo1->Lines->Strings[i]);
  list->SaveToFile("b.txt");
  delete list;