[angvelem]

Для приложения из одной формы работает, но вы не описали, что и для чего нужно. Можно проверить так:

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  MessageBox(0, PChar(IntToStr(Key)), '', MB_OK)
  if Key = $33 then
    Key := 0;
  MessageBox(0, PChar(IntToStr(Key)), '', MB_OK)
end;