TSpinEdit und Komma

[hoika]

Hallo,
das normale TSpinEdit erlaubt auch die Eingabe eines Kommas.
Kann ich das ohne ein Event abzufangen verhindern?

Quick&Dirty sieht das bei mir Im Moment so aus:
(die 0 ist hier gerade auch nicht erlaubt)

Delphi-Quellcode:

procedure SpinEdit_PruefeZeichen(var Key: Char);
begin
  if (Key<>'1') and
     (Key<>'2') and
     (Key<>'3') and
     (Key<>'4') and
     (Key<>'5') and
     (Key<>'6') and
     (Key<>'7') and
     (Key<>'8') and
     (Key<>'9') and
     { Löschen über Rücktaste }
     (Key<>#8) then
  begin
    Key := #0;
  end;
end;

Danke