Что-То я не догоняю и туплю с вечера, есть массив,

Question

Что-То я не догоняю и туплю с вечера, есть массив,

где хранятся копии классов, не создаются, а существующие добавляются и не разрушаются при удалении массива. При проверке - меняется один элемент на другой. Когда решил избавиться от повторного обращения по индексу - появился хинт, что присваивание в Item - не используется.
PSec = ^TSec
TSec = class
ASecList.Items: array of TSec;
Sec: TSec;
{1}
if (ASecList.Items[Index].F.ToValue < Sec.F.ToValue) then
ASecList.Items[Index] := Sec;
{2}
var Item := ASecList.Items[Index];
if (Item.F.ToValue < Sec.F.ToValue) then
Item := Sec; // Compiler Hint
Как заменить элемент быстро? )
Похоже, что так?
var PItem := PSec(ASecList.Items[Index]);
if (PItem.F.ToValue < Sec.F.ToValue) then
PItem^ := Sec;