Звуковой сигнал при нажатии ENTER

Written on 29 Октября 2007. Posted in [Delphi] Система. Клавиатура

procedure TForm1.EditKeyPress(Sender: TObject; var Key:Char);
begin
ifthen

begin

Perform(WM_NEXTDLGCTL,0,0);

key:= #0;

end;