title: Prevent CTRL-V in TDBMemo
body: <p>I am using a <code>TDBMemo</code> control in Delphi 7. I would like to prevent the user from pasting in it with <kbd>CTRL+V</kbd>.</p>
  
  <p>This solution doesn't work:</p>
  
  <pre><code>procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
   if (Key=#22) or (Key=#3) then Key:=#0;   // 22 = [Ctrl+V] / 3 = [Ctrl+C]
  end;
  </code></pre>
  
  <p>So, I tried something else: </p>
  
  <pre><code>if (Key=#86) then Key := #0; // this is ok, doesnt allow letter v.
  </code></pre>
  
  <p>But when I try: </p>
  
  <pre><code>if (Key=#17) AND (Key=#86) then Key := #0; // #17 is supposed to be CTRL value...
  </code></pre>
  
  <p>it doesnt work. </p>