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