procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
begin
    if (Key=VK_RETURN) and (Shift=[ssCtrl]) then begin
        Key := 0;
        ShowMessage('Ctrl-Enter');
    end;
end;