Is the Control key held downfunction IsCTRL: Boolean;begin Result := GetKeyState(VK_CONTROL) and 128 <> 0;end;