campo validado no acepta ctrl + v ctrl + c
 

Buen día:

valide varios campos dentro de un programita que estoy haciendo ahora me topo que no puedo copiar y pegar datos.

con esta funcion valide, la oncontre en este foro va en OnKeyPress

Código Delphi [-]
 
function TForm1.PresskeyAlf(Key: Char):char;
  begin
       if ( StrScan('abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZáéíóúÁÉÍÓÚ -',Key) <> nil ) or
          ( Key = Char(VK_BACK) ) then
                begin    // procedimiento
                end else
                Key := #0;
        result:=Key;
  end;// fin del procesiminento

Siento que me hace falta algo ya sea en el mismo evento o quizas en OnKeyDown alguien me puede ayuda con el problema.

----------------------------------------------------------------------------------------------------------------------------
He buscado en el foro y no he encontrado nada que de solucion a mi problema.
tengo campos tedit, tdbedit, tmemo, loas cuales estan validados y hasta el momento no encuntro como poder hacer que acepten el copiar pegar y cortar.

Porfavor ayuda.

sigo intentando y probado mas metodos.