>if (Pos (Key, '1234567890-') = 0) and (Key <> #0) then

これは if not (Key in ['0'..'9' , '-',#0]) then と同じかな?