Source position: base_engine.pas line 900
type TCompareItems = function(
P1: Pointer;
P2: Pointer
):Integer;