如何让hook拦截到的按键消息区分大小写？

如何让hook拦截到的按键消息区分大小写？ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiAPI/html/delphi_20061127022414168.html
请给出参考代码，  
   
  不要偏题啊。。。

no   such   thing  
  you   need   to   check   the   state   of   Caps   lock   key   and   shift   key

是这样子的吗？  
   
  下面语句也不行  
  GetKeyboardState(KeyState);  
  ToAscii(paramL,   ((paramH   shr   16)and$00ff),   KeyState,   @KeyChar[0],   0)  
   
  ~~~

mark