[Lazarus] how to handle Shift=[ssCtrl]

[FreeMan]

fpc r30400 lazarus r48585 yosemite qt x64

procedure TFRM_.TLabel1_MouseUp(Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X  , Y: Integer);
begin
if(Button=mbRight)then begin
   if Shift=[ssCtrl] then begin
    ShowMessage('ctrl key pressed :');
   end;
end;
end;

while debuging, move mouse on "Shift" and hint show values is 128, 
ssCtrl values is SSCTRL. and its not aqual, I mean I can not handle ctrl 
+ right click on Tlabel.
command key = 4
ssctrl =128
ssAlt = 2
ssShift = 1
ssctrl + ssAlt = 130
some shift values from hint