Non-Vcl Tut von Assarbad

[shareholder]

http://www.delphi-source.de/tutorials/nonvcl/?page=5

Delphi-Quellcode:

begin
  Result := 0;
  case uMsg of
    WM_CREATE:
      begin
        result := DefWindowProc(hWnd, uMsg, wParam, lParam);
        HLcursor := LoadCursor(hInstance, 'HandCursor'); // <-- FEHLER !!!
        DC := GetWindowDC(hWnd);
        inactivefont := fixfont(DC, 8, FW_NORMAL, FALSE);
        activefont := fixfont(DC, 8, FW_BOLD, TRUE);
        ReleaseDC(hWnd, DC);
        inactivecolor := rgb($0, $0, $0);
        activecolor := rgb($0, $0, $FF);
        SendMessage(hWnd, WM_CAPTURECHANGED, 0, 0);
      end;
    WM_RBUTTONUP,
      WM_LBUTTONUP:
      begin
      ...

der compiler gibt die meldung:
"Der linken Seite kann nix zuegwiesen werden"
aus.

Kann jmd. helfen ? Danke !