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