Kan man forhindre paste funktionen?

Jeg laver et komponent der nedarver fra TRichEdit og jeg vil gerne selv bestemme hvad der sker når man paster noget ind i den.
Jeg har skrevet KeyDown proceduren om sådan:

uses Clipbrd;

procedure TSyntaxEdit.KeyDown(var Key: Word; Shift: TShiftState);
var
  s: string;
  Clip: TClipboard;
begin
  if (Key = Word('V')) and (ssCtrl in Shift) and Enabled and not ReadOnly then
    begin
      Clip := Clipboard;
      s := Clip.AsText;
      SelText := s;
    end
  else
    inherited KeyDown(Key, Shift);
end;

Men når jeg paster noget ind i den kommer det bare frem to gange. Jeg kan godt selv regne ud hvorfor der gør det, men hvordan forhindrer jeg det?

Hvorfor fanden vil jeg gerne ændre på Paste funktionen? Jo, for hvis du prøver at paste noget ind fra Internet Explorer i en TRichEdit finder du vist ud af hvorfor.