با این کد دیگر نمی توان از کلید های میانبر کپی و پیست استفاده کرد.به محض فشردن آنها ابتدا چک می شود که آیا متن است یا نه . اگر متن بود کلیپ بورد پاک می شود.

uses Clipbrd;
procedure TForm1.Memo1KeyDown(Sender: T; var Key: Word;
  Shift: TShiftState);
begin
  if ((Key = ord("V")) and (ssCtrl in Shift)) then begin
   if Clipboard.HasFormat(CF_TEXT) then ClipBoard.Clear;
   key := 0;
  end;
 if ((Key = ord("C")) and (ssCtrl in Shift)) then begin
   if Clipboard.HasFormat(CF_TEXT) then ClipBoard.Clear;
   key := 0;
  end;
end;
//© 2005 koosha system Software http://delphi-center.blogfa.com