TLinkList

type TLinkList = class

protected

  function CreateItem; virtual; abstract;

  function GetNewItem;

  procedure AddAsLast();

public

  property First: TLinkListItem; [r]

  property Last: TLinkListItem; [r]

  property Count: Integer; [r]

  procedure Delete();

  procedure MoveToLast();

  procedure Clear;

  function ConsistencyCheck;

  constructor Create;

  destructor Destroy; override;

end;

TLinkList

TObject