Behandlung von RETURN im Memo Feld

[raena]

Hallo,

ich komme einfach nicht drauf. Ich benutze ein Memo Feld bei dem mit CTRL-Enter eine Aktion
erfolgreich ausgeführt wird.
Wir kann ich verhindern, dass das Drücken von CTRL-Enter einen Wagenrücklauf und Zeilenvorschub erzeugt? Ich habe es probiert mit:

Delphi-Quellcode:

unit Unit1;

interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, Grids, DBGrids, DB, StdCtrls, StrUtils, Menus, Tabs, DBTables,ShellAPI,
  ExtCtrls, COMObj, math, ExtDlgs;

type
  TForm1 = class(TForm)
    Mem_SQL_Input: TMemo;
  procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;



implementation

{$R *.dfm}


procedure TForm1.EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var i:integer;

begin

   if (Shift = [ssCtrl]) and (Key = ord(13)) then begin
     key :=0;
     showmessage('Crtl-Shift erkannt.');
     end;
     end;



     
procedure TForm1.formcreate(Sender: TObject);
begin
 Mem_SQL_Input.Text:='';
end;

end.

Aber leider ohne Erfolg. Danke.