function QuickSearch(const List: TList; CompProc: TCompareProc; Key: TObject; var Index: integer): Boolean;