Mausradrichtung bei Journalhook ermitteln

[Hedge]

Habe einen JournalHook eingrichtet und es funktioniert auch alles super...

Delphi-Quellcode:

function MouseHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;  stdcall;
begin
  If nCode = HC_ACTION then
   begin
    If lParam <> 0 then with PEventMsg(lParam)^ do
     begin
      If Message = WM_MOUSEWHEEL then
       begin
        Inc(Form1.i);
        Form1.Label1.Caption := IntToStr(Form1.i);
       end;
     end;
   end;
  Result := CallNextHookEx(Form1.MouseHook, nCode, wParam, lParam);
end;

Das einzige Problem das ich habe ist, dass ich es nicht schaffe zu ermitteln in welche Richtung sich das Mausrad dreht.

Delphi-Quellcode:

WM_MOUSEWHEEL 
  fwKeys = LOWORD(wParam); 
  zDelta = HIWORD(wParam);
  xPos = LOWORD(lParam); 
  yPos = HIWORD(lParam);

laut Definition müsste dies aber eigentlich mit zDelta möglich sein..wie ermittel ich nun diesen Parameter in der oben genannten Funktion. Hab schon ziemlich lange rumprobiert aber nichts funktionierte.