[darkpale]

Hola no te funciona mejor esto?

Código Delphi [-]
procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char);
var
tx:char;
begin
tx:=char(key);
if tx in ['0'..'9'] then
  key:=#0;
end;