Предупреждение о повторениии - при копировании из ListBox1 в ListBox2

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ListBox1->Items->Add(Edit1->Text+IntToStr(ListBox1->Items->Count+1));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
ListBox2->Items->Add(Edit2->Text+IntToStr(ListBox2->Items->Count+1));
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
ListBox1->CopySelection(ListBox2);
}
//---------------------------------------------------------------------------

// Строка которую хотим вставить
String str="Новая строка";
if (ListBox1->Items->Text.Pos(str){
    ShowMessage("Строка уже существует!");
}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
ListBox1->CopySelection(ListBox2);
String str="1";
if (ListBox1->Items->Text.Pos(str))
{
ShowMessage("Строка уже существует!");
}
}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
if(ListBox2->Items->IndexOf(ListBox1->Items->Strings[ListBox1->ItemIndex])==-1)
ListBox1->CopySelection(ListBox2);
else ShowMessage("Строка уже существует!");
}