I believe you'll find that this need changing to: if Assigned(AItem) and (not AItem.CanSelect) then Exit;Ken