[flexterful]

Используй указатели.

Код:

 PSomeItem = ^TSomeItem;
 TSomeItem = class
  Data : TSomeData;
  Next : PSomeItem;
 end;

Итерация

Код:

var
 Elem : PSomeItem;
begin
 Elem := FirstSomeItem;
 while Elem <> nil do
  begin
   // blah blah
   Elem := Elem.Next;
  end;