Как в компоненте TMemo перехватить нажатие Ctrl-V и вставить специальный текст не из буфера обмена (

uses ClipBrd;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
        if ((Key = ord('V')) and (ssCtrl in Shift)) then
                begin
                        if Clipboard.HasFormat(CF_TEXT) then 
                                ClipBoard.Clear;
                        Memo1.SelText := 'Delphi is RAD!';
                        key := 0;
                end;
end;