Как отличить нажат правый или левый 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');

Code:

procedure TDecEditForm.Memo1KeyPress(Sender: TObject; var Key: Char);

VAR s:String;  RL:Byte;

begin

IF key=CHR(VK_RETURN) Then

Begin

   //WIN NT/2000

   If (GetVersion() and $80000000)=0 then

     BEGIN

       IF ((Word(GetKeyState(VK_LSHIFT)) and $8000)<>0)  Then

         Begin

         End;

   IF ((Word(GetKeyState(VK_RSHIFT)) and $8000)<>0)  Then

     Begin

     End;

End

ELSE

//WIN 9.x

Begin

   asm

     mov ah,2

     int $16

     mov RL,al

   end;

   if 1 = (RL and 1) then //  ПРАВЫЙ SHIFT НАЖАТ+ENTER

     Begin

     End;

   if 2 = (RL and 2) then //  ЛЕВЫЙ SHIFT НАЖАТ+ENTER

     Begin

     End;

End;

//WIN 9.x

END;

End;