Блокировка копирования и вставки правой кнопкой мыши

void __fastcall TForm4::Edit1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
if (Button==mbRight) return;
}

if (Button==mbRight) return;

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
        if (Button==mbRight) return;
}

void __fastcall TForm1::Edit1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  if (Button==mbRight)
    Edit1->Enabled = false;
    Button1->SetFocus();
  return;
  if (Button==mbLeft)
    Edit1->Enabled = true;
}

void __fastcall TForm1::Edit1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  if (Button==mbRight) {
    for (int i = 0; i < 3; i++) {
      ShowMessage("Как еще объяснить?");
      ShowMessage("Выполняем определенные действия...");
      ShowMessage("Код смотреть не надо, его нужно использовать!");
      ShowMessage("... и думать ... думать ... думать ...");
    }
  }
  else if (Button==mbLeft) {
    Edit1->Text = "Всьо гламурно :) .";
  }
}

// убрать выделение:
void __fastcall TForm1::Edit1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  if (Button==mbRight) {
    Edit1->SelStart = Edit1->Text.Length(); // текст.курсор в конце текста
// или
    Edit1->SelStart = X; // текст.курсор на месте курсора мыши
// что тебе больше понравится
  }
}