如何检测右shift和左ctrl同时被按住不放

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (ssshift in Shift)
and (ssCtrl in Shift) then
    label1.Caption:='OK!'
else
    label1.Caption:='NO!'end;procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   label1.Caption:='NO!'
end;