não deixr acentuar...

Estou fazendo um procedimento para não deixar acentuar em todo o meu sistema. Coloco o procedimento baixo no form principal.
A minha rotina até é chamada, mas não sei o comando que coloco em vez do showmessage para cancelar a tecla pressionada caso for uma das condições abaixo. Tentei abort, exit. mas não tem. Deve ter alguma maneira. Caso exista alguma outra maneira que posso fazer também....
Aguardo retorno obrigado.

procedure Tform1.MudarComEnter(var Msg: TMsg; var Handled: Boolean);
begin
If Msg.message = WM_KEYDOWN then
begin
Case Msg.wParam of
219: //..showmessage(´1´);
192: //..showmessage(´2´);
222: //..showmessage(´3´);
186: //..showmessage(´4´);
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := MudarComEnter
end;