Найти все объекты и поместить их в список
function GetObjectList(aObjectKey: int64; aObjectList: TList; aSection: integer = 0): integer;
aObjectKey
aObjectList
aSection