1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

function LowLevelKeyboardProc(code: integer; WParam: WParam; LParam: LParam): LRESULT stdcall;
const
  LLKHF_UP = $0080;
var
  Hook: pKBHOOKSTRUCT;
  fEatKeystroke: boolean;
begin
  fEatKeystroke := False;

  try
    Hook := pKBHOOKSTRUCT(LParam);
    case code of
      HC_ACTION:
      begin
        if (Hook^.flags and LLKHF_UP) <> 0 then
        begin
            case Hook.vkCode of
              VK_A .. VK_Z:
                begin
                  // Irgendeinen Buchstaben gedrückt. Mach immer B draus.
                  fEatKeystroke := True;
                  keybd_event(VK_B, 0, 0, 0);
                end;
                // Noch mehr Cases hier - ich kürze das mal ab.
            end;
        end;
      end;
    end;
  finally
    if fEatKeystroke then
      Result := 1
    else
      Result := CallNextHookEx(hkHook, code, WParam, LParam);
  end;
end;					

1:

LLKHF_DOWN = $0081;