hjælp DrawItem

jeg har hentet EnhListView på www.torry.net
problemmet er at når jeg prøver at indstallere det for jeg en Invalid typecast fejl ved denne linie :

State := TOwnerDrawState(WordRec(LongRec
        (itemState).Lo).Lo);

Er der nogle af jer der kan fortælle mig hvorfor ??
resten af proceduren er nedeunder:

procedure TCustomEnhListView.CNDrawItem(var Message: TWMDrawItem);
var
  State: TOwnerDrawState;
  DoDefaultDrawing: boolean;
  FullRowSelect: boolean;
  SavedDC: integer;
begin { CNDrawItem }
  If FCanvas = NIL then exit;

  with Message.DrawItemStruct^ do
  begin
    State := TOwnerDrawState(WordRec(LongRec(itemState).Lo).Lo);
    SavedDC := SaveDC(hDC);
    FCanvas.Handle := hDC;
    try
      FCanvas.Font := Font;
      FCanvas.Brush := Brush;
      DoDefaultDrawing := FALSE;
      FullRowSelect := FALSE;
      ProcessDrawItemMsg(itemID, rcItem, State, DoDefaultDrawing, FullRowSelect);
    finally
      FCanvas.Handle := 0;
      RestoreDC(hDC, SavedDC);
    end;
  end;

  Message.Result := 1;
end;