Delphi 3 und per Mausrad im Editor scrollen

[SirThornberry]

ich probiere gerade damit rum und bin jetzt bei einem mousehook

Delphi-Quellcode:

type
  T2Words = packed record
    Word1: Word;
    Word2: Word;
  end;
[...]
function MouseProc(nCode: Integer; AWPARAM: wParam; ALPARAM: lParam): LResult; Stdcall;
var LScrollInfo: TScrollInfo;
    LStruct: TMouseHookStruct;
    LWords: T2Words;
begin
  if nCode < 0 then
    result := CallNextHookEx(LHook, nCode, AWParam, ALPAram)
  else begin
    if AWParam = WM_MOUSEWHEEL then
    begin
      result := 1;
      GetScrollInfo(PMouseHookStruct(ALParam)^.hwnd, SB_VERT, LScrollInfo);


      LScrollInfo.nPos := LScrollInfo.nPos + 1;

      LWords.Word1 := SB_THUMBPOSITION;
      LWords.Word2 := LScrollInfo.nTrackPos;
      SetScrollInfo(PMouseHookStruct(ALParam)^.hwnd, SB_VERT, LScrollInfo, True);
      PostMessage(PMouseHookStruct(ALParam)^.hwnd, WM_VSCROLL, Integer(LWords), 0);
    end else
      result := CallNextHookEx(LHook, nCode, AWParam, ALPAram);
  end;
end;

ich wollte probehalber nur mal runterscrollen (also noch keine unterscheidung in welche Richtung das Rad dreht). Der Quelltext ist der letzte stand, leider wird dabei die Scrollbar voll ausgegraut.