Baue dir doch eine eigene Collection, bei der das CollectionItem in etwa so definiert ist:
Delphi-Quellcode:
tye
TMyCollectionItem = class(TPersistent)
private
fNext, fLast: TMyCollectionItem;
fIndex: Integer;
// Deine Felder
published
// published-Deklaration der private-Felder
end;
Dann musst du dir nur noch eine TCollection ableiten und die Suchmethoden umschreiben
PS: Bin auch grade dabei, aber das Projekt wurde eingefroren, mein Laufzeitcompiler wartet auf mich