ComboBox. Как разделить строку, чтобы часть слов вводилась в Memo, а остальное переменную String ?

AnsiString s=ComboBox1->Text;
Memo1->Text=s.SubString(0,s.Pos("|")-1);
AnsiString s2=s.SubString(s.Pos("|")+1,s.Length());

void __fastcall TForm1::Button1Click(TObject *Sender)
{// Вставляем первую часть строки из ComboBox1 в Memo1
AnsiString s=ComboBox1->Text;
Memo1->Text=s.SubString(0,s.Pos("|")-1);
AnsiString s2=s2.SubString(s.Pos("|")+1,s.Length());
Memo1->Lines->Add(s2)   ;

void __fastcall TForm1::Button2Click(TObject *Sender)
{// Вставляем вторую часть строки из ComboBox1 в Memo1
Memo1->Lines->Add("");
Memo1->Lines->Add("");
AnsiString s=ComboBox1->Text;
Memo1->Lines->Add("Заключение: " + s.SubString(s.Pos("|")+1, s.Length()));
AnsiString s2=s.SubString(0, s.Pos("|")-1);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
{// Вставляем первую часть строки из ComboBox1 в Memo1
AnsiString s=ComboBox1->Text;
AnsiString s2=s.SubString(s.Pos("|")+1,s.Length());
 
 
AnsiString sa=ComboBox2->Text;
Memo1->Lines->Add( s.SubString(0,s.Pos("|")-1)+ ". " + sa.SubString(0,sa.Pos("|")-1));
AnsiString sa2=sa.SubString(sa.Pos("|")+1,sa.Length());
Memo2->Lines->Append(s2.c_str() +  sa2.c_str())   ;
}
}

Memo2->Lines->Append(s2 +  sa2);

Memo2->Lines->Add(s2.c_str())   ;

Memo2->Lines->Add(s2)   ;

ComboBox1->Items->Append(" dfdfd hdhhgj.");
ComboBox2->Items->Append(" bbfng hfm.");

ComboBox1->Text=ComboBox1->Items->Strings[0];

ComboBox1->Text = ComboBox1->Items->Strings[0];
ComboBox1->Items->Append(" GGGGGGGGGG|888888 ");
ComboBox1->Items->Append(" HHHHHHHHHHHH|55555555 ");
ComboBox1->Items->Append(" KKKKKKK|444444 ");

ComboBox1->Text = ComboBox1->Items->Strings[0];

Memo1->Lines->Add("lkjkjdtyd: " + s2 + sa2 + ... + sN2);

AnsiString s=ComboBox1->Text; // перменная s  строки ComboBox1
// переменная второй части строки ( после знака "|" ) - s2
AnsiString s2=s.SubString(s.Pos("|")+1,s.Length());
 
//  ComboBox2
AnsiString sa=ComboBox2->Text;
AnsiString sa2=sa.SubString(sa.Pos("|")+1,sa.Length());
..............................................
//  ComboBox(N)
AnsiString sN=ComboBox(N)->Text;
AnsiString sN2=sN.SubString(sN.Pos("|")+1,sN.Length());
 
// Вставляем первую половину строки (из переменной s)
RichEdit1->Lines->Add(s.SubString(0,s.Pos("|")-1) + sa.SubString(0,sa.Pos("|")-1) + ...+sN.SubString(0,sN.Pos("|")-1));
 
// Вставляем вторую половину строки (из переменной s2)
Memo1->Lines->Add("lkjkjdtyd: " + s2 + sa2 +...+ sN2);

String=stroka;
stroka=Memo2->Text;
Memo2->Text=StringReplace(Memo2->Text," ","",TReplaceFlags()<<rfReplaceAll);

void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (Memo2->Lines->Count<=0)
{
RichEdit1->Lines->Add("бла блабла");
}
else
{
RichEdit1->Lines->Add(Memo2->Text);
}
 
}

if (Memo2->Text.Length() == 0)