Du könntest mit den OnKeyDown und OnKeyUp Prozeduren arbeiten und z.b. eine Globale Variable (isSTRGPressed) bei OnKeyDown auf True setzen und bei OnKeyUp auf False. Dabei benötigst du den Tastencode der CTRL-Taste. Und bei Klick der Enter Taste kannst du dann mit if(Key = #13) and (isSTRGPressed) then ... deine weiteren Befehle ausführen.
[EDIT]
Das könnte dann etwa so aussehen:
Delphi-Quellcode:
var
isSTRGPressed : Boolean;
...
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 17 then
isSTRGPressed := True;
if (Key = 13) and (isSTRGPressed) then
begin
isSTRGPressed := False;
ShowMessage('Geht');
end;
end;
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
isSTRGPressed := False;
end;
[/EDIT]