No sé si es la solución ideal pero acabo de probar esto que parece funcionar:
Código Delphi
[-]
uses
ClipBrd;
procedure TMyEdit.WMPaste(var Msg: TWMPaste);
var
V, Code: Integer;
begin
Val(Clipboard.AsText, V, Code);
if Code = 0 then
inherited;
end;
// Saludos