>>776
恐れすだけど

if (Key = #10) and (GetKeyState(VK_CONTROL) < 0) then
Key := #0;

で駄目？ssShift求めるルーチンにまんまあるんだけど。