Найти временный объект по его метке
function GetObjectIndexByTag(aTag: integer): integer;
aTag
< 0, если временный объект не найден, иначе индекс временного объекта