title: Understanding press Ctrl + Plus
body: <pre><code>procedure TformMain.FormKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  begin
    if (Key = VK_ADD) and (Shift = [ssCtrl]) then
    begin
      ShowMessage('Zoom In');
    end;
  
  end;
  </code></pre>
  
  <p>I am trying to zoom in and out with keyboard (<kbd>ctrl</kbd>+<kbd>+</kbd> and <kbd>ctrl</kbd>+<kbd>-</kbd>)</p>
  
  <p>I wrote my code like this:
  <a href="https://stackoverflow.com/questions/3000652/how-to-detect-ctrl-t-keypress-in-delphi">How to detect ctrl-t keypress in Delphi</a></p>
  
  <p>But it does not work, how can I fix it?</p>