[roman]

No sé si es la solución ideal pero acabo de probar esto que parece funcionar:

Código Delphi [-]
uses
  ClipBrd;

(* Manejador del mensaje WM_CHAR *)
procedure TMyEdit.WMPaste(var Msg: TWMPaste);
var
  V, Code: Integer;

begin
  Val(Clipboard.AsText, V, Code);
  if Code = 0 then
    inherited;
end;

// Saludos