[angvelem]

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = $33 then
    Key := 0;
end;

у форму KeyPreview выставить в True.