Как контролировать процесс копирования в окно редактирования из буфера обмена

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
    if ((Key == '.') || (Key == ','))
    {   // Точку или запятую заменяем десятичным разделителем, проверив что он в числе единственный
        if( (strchr(Edit1->Text.c_str(), '.')) == 0 && (strchr(Edit1->Text.c_str(), ',')) == 0)
            Key = DecimalSeparator;
        else
            Key = 0;
    }
    else if (Key == '-')
    {
        // Проверяем, что вводимый минус единственный и стоит самым первым в числе
        if((Edit1->SelStart) || (Edit1->Text[1] == '-') ) Key = 0;
    }
    else if (Key == 8)  {}  // Разрешаем BackSpace
    else if (Key < '0' || Key > '9') Key = 0;  // Запрещаем нецифровые символы
}

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
     TEdit *edi = (TEdit*)Sender;  float fD;
     if(edi->Text=="-" || edi->Text=="") return; 
     try { fD = edi->Text.ToDouble(); }
     catch(...) { Timer1->Tag=8; }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    if( !Timer1->Tag) return;
    Edit1->Color = Timer1->Tag %2 ? clWhite : clRed;
    Timer1->Tag = Timer1->Tag -1;
    if(!Timer1->Tag) Edit1->Text = "";
}

      Set <char, 0, 255> Dig;
      Dig << '0' << '1' << '2' << '3' << '4' << '5' << '6' << '7' << '8' << '9' << '.' << '-';
 
       if(Key==13) Edit2->SetFocus();
       if(Dig.Contains(Key)) KeyPress(Key);
       else Key=0;

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
     TEdit *edi = (TEdit*)Sender;  float fD;
     try { fD = edi->Text.ToDouble(); }
     catch(...) { edi->Text=""; }
}