KeyDown - Problem

[JB-1990]

Hey ho liebe Delphianer,
ich hab erneut ein Problem mit meinen Tasten.
Ich ein Editfeld in dem man nur Zahlen und Punkte eingeben können soll, da man dort ein Datum eingeben soll.

mit
IF NOT (Key IN [#48..#57,#60..#69,???]) THEN Key:=#0; hab ich ja schon die zahlen aber jetzt brauch ich einen Punkt. In der Win32sdk werde ich nicht fündig. Und wenn dann steht da etwas von 0xBE oder VK_OEM_PERIOD #0xBE nimmt er mir nicht ab und VK_OEM_PERIOD ist nicht kompatibel mit dem Rest.
Variablen vom Typ string will er nicht (logisch wenn char verlangt wird) und das:
IF NOT (Key IN [#48..#57,#60..#69,#+x+y+z+a]) THEN Key:=#0; will auch nicht gehen, weil der die variablen in denen je ein Zeichen von 0xBE steht zu einem ShortString zusammenfasst - was mir auch einleuchtet. Nun bin ich mit meinen Ideen am Ende und weiß auch nicht weiter.
LG JB-1990