Update hives.pas

polymorphesizing