Запрет на ввод точек

char ert;
void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
ert = Memo1->Lines->Strings[Memo1->CaretPos.y].c_str()[Memo1->CaretPos.x-1];
if((Key == '.')||(Key == ','))
{
 if(Key==ert)
  {
    ShowMessage("Ïðåäûäóùèé ñèìâîë òàêîé æå");
    keybd_event(VK_BACK, 0, 0 ,0);
    keybd_event(VK_BACK, 0, KEYEVENTF_KEYUP,0);
  }
}
 if(((Key=='.')&&(ert==','))||((Key==',')&&(ert=='.')))
 {
    keybd_event(VK_BACK, 0, 0 ,0);
    keybd_event(VK_BACK, 0, KEYEVENTF_KEYUP,0);
 }
}

ShowMessage("Предыдущий символ такой же");

void __fastcall TMain::BlacklistKeyPress(TObject *Sender, char &Key)
{
char ert;
ert = Blacklist->Lines->Strings[Blacklist->CaretPos.y].c_str()[Blacklist->CaretPos.x-1];
if((Key == '.')||(Key == ','))
{
 if(Key==ert)
  {
    ShowMessage("Ïðåäûäóùèé ñèìâîë òàêîé æå");
    keybd_event(VK_BACK, 0, 0 ,0);
    keybd_event(VK_BACK, 0, KEYEVENTF_KEYUP,0);
  }
}
 if(((Key=='.')&&(ert==','))||((Key==',')&&(ert=='.')))
 {
    keybd_event(VK_BACK, 0, 0 ,0);
    keybd_event(VK_BACK, 0, KEYEVENTF_KEYUP,0);
}}

ToDel->Text=Blacklist->Text;           //çàãðóæàåì â ëèñò ñïèîê
    for (int i = ToDel ->Count-1; i >= 0; i--)    //öèêë ïî ñïèñêó
    {
        if (!ToDel->Strings[i].IsEmpty())   //исключаю пустые строчки

ToDel->Text=Blacklist->Text;           //çàãðóæàåì â ëèñò ñïèîê
    for (int i = ToDel ->Count-1; i >= 0; i--)    //öèêë ïî ñïèñêó
    {
        if (!ToDel->Strings[i].IsEmpty() || ToDel->Strings[i] == ".." || ToDel->Strings[i] == ".")   //исключаю пустые строчки

if (Pos(ToDel->Strings[i], ".")) // если найдена хотя бы одна точка