[Ogurcofff]

Я понимаю что тема обсуждалась много раз, но все таки есть вопросы:
1. Запрет вставки содержимого буфера используя ctrl+V

Нашел ответ. Это помогло.

Код:

uses Clipbrd, ...
 
 //disable CTRL + V ("Paste") :: handles Edit1.OnKeyDown
 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState) ;
 begin
   if ((ssCtrl in Shift) AND (Key = ord('V'))) then
   begin
     if Clipboard.HasFormat(CF_TEXT) then ClipBoard.Clear;
 
     Edit1.SelText := '"Paste" DISABLED!';
 
     Key := 0;
   end;
 end;

2. Заперт вставки из буфера через PpopupMenu

Нашел ответ. Создал свое PopupMenu и в events Edit-а его установил. Теперь через него не вставишь ничего.

3. Но осталось сочетание Shift+Insert. Ни как не могу понять как запретить вставку из буфера через это сочетание.

P.S. программа работает только с цифровыми данными, поэтому хотелось бы предотвратить возможные будущие сбои.