>>612

例えば、Enterだけ言えば、これをそのまま貼ってみて、音が鳴るか試して

　　　if (Key = #13) then
　　　begin
　　　　　　SelectNext(ActiveControl, True, True);
　　　　　　Key := #0;
　　　end;

　　　if (Pos (Key, '1234567890-') = 0) and (Key <> #0) then
　　　begin
　　　　　　Key := #0;
　　　　　　ShowMessage('半角数字とハイフンだけが入力できます。');
　　　end;

あと、Enterで移動したいなら、FormのKeyPressにEnterでの移動用のコード
を書いて KeyPreviewをTrueにした方が楽だと思うけど、どーよ。