[Drongo]

Так пойдёт?

Код:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   for(int i = 0; i < Memo1->Lines->Count; i++){
      if(Memo1->Lines->Strings[i].Pos(";") )
         if(Memo1->Lines->Strings[i].Pos(";") == 1)
            continue; //Memo2->Lines->Add(Memo1->Lines->Strings[i]);
         else
            Memo2->Lines->Add(Memo1->Lines->Strings[i].SubString(1, Memo1->Lines->Strings[i].Pos(";")-1));
    }
}