[NumLock]

Код:

var
  a: Char;
begin
  case a of
    'e': begin
      // do nothing
    end;
    else begin
    end;
  end;
end;