[miado]

Puedes utilizar esto en el evento OnKeyPress del Edit;

procedure TForm1.DBEdit1KeyPress(Sender: TObject;
var Key: Char);
begin

if (StrScan('1234567890', Key) = nil) and (Key <> #8) then Key := #0;

end;