Перевод символа в символ+shift

[Winexcel]

Здравствуйте! Имею следующую проблему:
Есть глобальный хук на клавиатуру, который отправляет все нажатые клавиши на мой обработчик, получаю нужный мне код клавиши за счет функции ToUnicodeEx, но не могу понять как учесть ещё зажатую клавишу Shift?

Хук самый примитинвый:

// хук-процедура клавиатуры
function KeyboardHook(Code: integer; WParam,LParam: wparam): DWORD; stdcall;
var
  LogHWND: THandle;
begin
  if Code = HC_ACTION then begin
    hMemFile:=OpenFileMapping(FILE_MAP_WRITE, False, 'wrapper');
    PHookRec1:=MapViewOfFile(hMemFile, FILE_MAP_WRITE, 0, 0, 0);
    if PHookRec1<>nil then
      PostThreadMessage(PHookRec1.idThread,WM_USER+1,WParam,LParam);
  end;
  Result:= CallNextHookEx(HOOK_HANDLE_K,Code,WParam,LParam);
end;

Обрабатываю так:

if (Msg.LParam and $80000000 <> 0) then
begin // WM_KEYUP
 if GetAsyncKeyState(VK_SHIFT)<>0 then
  ShiftState:='ssShift';
 GetKeyboardState(kbState);
 KeybLayout := GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil));
 count := ToUnicodeEx(Msg.wParam, (Msg.lParam and $FF0000), @kbState, @Buf, (Msg.lParam and $FFFF), 0, keybLayout);
 if Count = 1 then
 begin
  showmessage(Buf);
 end;
end;