Помогите лумеру.

WaReZ_MEN

Читал я уже все сто можно но почемуто всеравно кое что не работает может кто переведет юнит в нем есть все не ясные мне моменты:

type
  TCryptFunction = function(s: TStream): TStream;

  TImageListCollection = class;
  TOmegaImageList = class;
  TImageListItem = class(TCollectionItem)
  private
    FImage: IDirect3DTexture8;
    FPicture: TPicture;
  public
    property Image: IDirect3DTexture8 read FImage write FImage;
   end;

  TImageListCollection = class(TOwnedCollection)
  private
    FEncode, FDecode: TCryptFunction;
  protected
    function GetItem(Index: Integer): TImageListItem;
    procedure SetItem(Index: Integer; Value: TImageListItem);
    procedure Update(Item: TCollectionItem); override;
  public
    function Find(const SearchName: string): TImageListItem;
    property Items[Index: Integer]: TImageListItem read GetItem write SetItem;
  end;

  TOmegaImageList = class(TComponent)
  private
    FImageList: TImageListCollection;
    FOmegaScreen: TOmegaScreen;
    FRenderer: TOmegaRenderer;
    procedure SetImageList(const Value: TImageListCollection);
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  published
    property ImageList: TImageListCollection read FImageList write SetImageList;
    property OmegaScreen: TOmegaScreen read FOmegaScreen write SetOmegaScreen;
  end;


type
  TOmegaSprite = class;
  
  TSprite = class(TObject)
  private
    FParent: TOmegaSprite;
    FName: string;

    FX1, FY1, FX2, FY2, FX3, FY3, FX4, FY4: Single;
    FXOffs, FYOffs, FImageIndex: Integer;

    FVisible: boolean;
    FConstCoords: boolean;
    FXCenter, FYCenter: single;

    procedure SetImageIndex(const value: integer); virtual;
  public
    property ImageIndex: integer read FImageIndex write SetImageIndex;
    property Image: TImageListItem read FImage write SetImage;
  end;

  TSimpleAnimSprite = class(TSprite)
  end;

  TOmegaSprite = class(TComponent)
  private
    function GetSprite(const index: integer): TSprite;
  public
TSprite;
    property Items[const index: integer]: TSprite read GetSprite; default;
  end;