z.B. OnKeyPress
durch diese Funktion schleusen und das Ergebnis nur verwenden, wenn es Dir in den Kram passt.
Delphi-Quellcode:
function StripAlphaChars(pStr:String):String ;
Var x : Integer;
begin
result := '';
For x:= 1 to length(pStr) do
if pStr[x] in ['0'..'9'] then result := result +pStr[x];
end;
Die "2 Buchstaben" fehlen noch in der Funktion.