TStringList *list=new TStringList;
Memo1->Lines->LoadFromFile("123.txt");
list->Delimiter='|';
list->DelimitedText = Memo1->Text;
Memo1->Lines->Add("\n\r+++++++++++++++++++++++++++\n\r");
for(int i=0;i<list->Count;i++)
Memo1->Lines->Add(list->Strings[i]);