Ctrl-Intro en un TEdit

[[gluglu]]

Hola Amigos !

En mi TEdit controlo tanto los eventes OnKeyDown como OnKeyPress. Quiero interceptar cuando el usuario pulsa Ctrl-Intro y lo hago bien con

Código Delphi [-]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If (Key = VK_RETURN) and (Shift = [ssCtrl]) Then
    ...
end;

pero aunque añada Key := 0;, después de pasar por OnKeyDown me ejecuta también OnKeyPress y ahí no sé como identificar esa situación, ya que en OnKeyPress, Key no vale ni 17 (Control) ni tampoco 13 (Enter) y shift no está disponible.

Felices Fiestas !