[fidel]

Tengo un edit con el siguiente código en el evento OnKeyPress para que admita solo números decimales:

Código Delphi [-]
  //controlar entrada solo números
  if ( StrScan('0123456789.' + chr(7) + chr(8), Key) = nil ) then  Key := #0;
  //cambiar punto decimal por coma
  if key = '.' then key := ',';
  //controlar entrada una sola coma
  for i := 1 to length(EUno.Text) do
    if ( copy(EUno.Text,i,1) = ',' ) and not ( StrScan(',', Key) = nil ) then  Key := #0;

Esto me impide copiar y/o pegar en el edit, pero necesito poder hacerlo.

He pensado poner una condición algo así:

If (key = 'VK_KeyDeCtrl+V) or (key = 'VK_KeyDeCtrl+C) then
....controlar valor pegado
else
... control entrada solo números

¿ key de CTRL+V y de CTRl+C ?, o algún sitio donde pueda buscarlas.

Gracias.