TPackedItem

type TPackedItem = class(TCollectionItem)

protected

  function GetDisplayName; override;

  procedure DefineProperties(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure SaveToStream();

  procedure LoadFromStream();

  procedure SaveToFile();

  procedure LoadFromFile();

  function GetAsStream;

  property AsStream: TStream; [r]

published

  property StoreMode: TStoreMode; [rw]

  property Size: Integer; [rw]

  property Name: TCaption; [rw]

end;

TPackedItem

TObject