Shift Hoykey issues with my application

[Simon180]

Hello all, I been trying to add a hotkey to my application using the following code below but I have a issue were once added am no longer able to use any other shift commands as it will always call the the press commands so am wondering is there a better way of doing the code below were it allows me to use shift key for my command but also allso the normal shift commands to be used while program is open for symbols also how can I am make it so the shift key must be always pressed down to enable the command?.

procedure TGizletView.BuildMyHotKey;
const
  MOD_SHIFT = 4;
begin
  // Globally trap the Windows system keys shift and control
  ctrl_id := GlobalAddAtom('VK_LSHIFT');
  // Registering a hotkey
  RegisterHotKey(Handle, ctrl_id, MOD_SHIFT, VK_SHIFT);
end;

procedure TGizletView.WMHotKey(var Msg: TWMHotKey);
begin
  if (Msg.HotKey = ctrl_id) then
  begin
    if not KeyDown then KeyPressed(True) Else KeyPressed(False);
  end;
end;

procedure TGizletView.KeyPressed(KeyIspressed: Boolean);
begin
  if KeyIspressed then
  begin
     KeyDown := True;
   end else begin
     KeyDown := False;
  end;
end;

thanks