Is the shift key held downfunction IsShift: Boolean;begin Result := GetKeyState(VK_SHIFT) and 128 <> 0;end;