Как отличить нажат правый или левый SHIFT?

Code:

if ((Word(GetKeyState(VK_LSHIFT)) and $8000) <> 0) then

begin

end;

if ((Word(GetKeyState(VK_RSHIFT)) and $8000) <> 0) then

begin

end;

Code:

{©Drkb v.3}

RSHIFT = 36h

LSHIFT = 2Ah

asm

in al, 60h

cmp al, 36h

jne @@exit

mov tt,1

@@exit:

end;

if tt = 1 then ShowMessage ('Right Shift');