title: Empty a TMemo with Ctrl+Enter
body: <p>What I'm trying to accomplish:</p>
  
  <ul>
  <li>User enters text into a TMemo box</li>
  <li>If they press Enter it creates a new line</li>
  <li>If they press <kbd>Ctrl</kbd>+<kbd>Enter</kbd> it moves the text to another box and empties the TMemo</li>
  </ul>
  
  <p>I'm using this code [KeyPreview is True]:</p>
  
  <pre><code>procedure TFMsg.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  begin
    if (Shift = [ssCtrl]) and (Key = $0D) then
    begin
      Key := 0;
      btnSendClick(Sender); //this moves the text and empties the TMemo box
    end;
  end;
  </code></pre>
  
  <p>What's actually happening:</p>
  
  <ul>
  <li><kbd>Ctrl</kbd>+<kbd>Enter</kbd> sends the text to the other box</li>
  <li>The TMemo empties but seems to accept the Enter key as the cursor sits flashing on the second line</li>
  </ul>
  
  <p>Any help gratefully received. Thank you!</p>