[angvelem]

Я взял, но ещё не смотрел.
Посмотрел.

Код:

       257:
         begin
         p := PKBDLLHOOKSTRUCT(lParam);
         case p^.vkCode of
         160 : Shift_key:=false;
         end;
         end;
       256:
         begin
         p := PKBDLLHOOKSTRUCT(lParam);
         case p^.vkCode of
         20 : fEatKeystroke:=true;
         160 : Shift_key:=true;

зря ты ничего незначащие числа ставишь, пиши как принято (синонимы) VK_SHIFT и т.п.