procedure DefineProperties(Filer: TFiler); override;

This is DefineProperties, a member of class TTntSearchFind.