Working with Fields That Have Custom Data Type

Class TESTForm: Form
    OpenImageDlg: FileOpenDialog;
    ImageName: Label;
    ImgBox: ImageBox;
    BPrior: Button;
    BNext: Button;
    BAdd: Button;
    //Variables for working with repository
    MB: IMetabase;
    TableInst: IDatasetInstance;
    Cache: ICachedDataset;
    Fields: IDatasetInstanceFields;

    Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
    Begin
        //Open table and get access to cache with records
        MB := MetabaseClass.Active;
        TableInst := MB.ItemById("TIMAGES").Open(Null) As IDatasetInstance;
        Cache := TableInst.OpenCached;
        Fields := Cache.Fields;
    End Sub TESTFormOnCreate;

    Sub TESTFormOnClose(Sender: Object; Args: IEventArgs);
    Begin
        Cache.Close;
    End Sub TESTFormOnClose;

    
    Sub BPriorOnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        If Not Cache.Bof Then
            Cache.Prior;
            LoadRecord;
        End If;
    End Sub BPriorOnClick;

    Sub BNextOnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        If Not Cache.Eof Then
            Cache.Next;
            LoadRecord;
        End If;
    End Sub BNextOnClick;

    Sub BAddOnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        ImgStream: IFileStream;
    Begin

        If OpenImageDlg.Execute Then
            //Create a new record
            Cache.Append;
            ImgStream := New FileStream.Create(OpenImageDlg.FileName, FileOpenMode.Read, FileShare.DenyNone);
            //Set field values

             Fields.FindById("IMG_NAME").Value := OpenImageDlg.FileName;
            Fields.FindById("IMG").Value := ImgStream;
            //Save changes
            Cache.Post;
            Dispose ImgStream;
            //Load field values to components
            LoadRecord;
        End If;
    End Sub BAddOnClick;

    Sub LoadRecord;
    Var
        ImgStream: IIOStream;
    Begin
        ImageName.Text := Fields.FindById("IMG_NAME").Value;
        ImgStream := IOStream.FromVariant(Fields.FindById("IMG").Value);
        ImgBox.LoadImageFromStream(ImgStream);
        //Delete stream
        Dispose ImgStream;
    End Sub LoadRecord;

End Class TESTForm;

Class TESTForm: Form
    ImageName: Label;
    BPrior: Button;
    BNext: Button;
    BAdd: Button;
    OpenReportDlg: MetabaseOpenDialog;
    UiReport1: UiReport;
    ReportBox1: ReportBox;
    //Variables for working with repository  
    MB: IMetabase;
    TableInst: IDatasetInstance;
    Cache: ICachedDataset;
    Fields: IDatasetInstanceFields;
    

    Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
    Begin
        //Open table and get access to cache with records
        MB := MetabaseClass.Active;
        TableInst := MB.ItemById("TIMAGES").Open(Null) As IDatasetInstance;
        Cache := TableInst.OpenCached;
        Fields := Cache.Fields;
    End Sub TESTFormOnCreate;

    Sub TESTFormOnClose(Sender: Object; Args: IEventArgs);
    Begin
        Cache.Close;
    End Sub TESTFormOnClose;
    
    Sub BPriorOnClick(Sender: Object; Args: IMouseEventArgs);
    Begin

        If Not Cache.Bof Then
            Cache.Prior;
            LoadRecord;
        End If;
        Debug.WriteLine(Cache.RecNo);
    End Sub BPriorOnClick;

    Sub BNextOnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        If Not Cache.Eof Then
            Cache.Next;
            LoadRecord;
        End If;
        Debug.WriteLine(Cache.RecNo);
    End Sub BNextOnClick;

    Sub BAddOnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        Rep: IPrxReport;
        RepStream: IMemoryStream;
    Begin
        If OpenReportDlg.Execute(Self) Then
            //Create a new record
            Cache.Append;
            RepStream := New MemoryStream.Create;
            Rep := OpenReportDlg.Object.Bind As IPrxReport;
            Rep.SaveToStream(RepStream, PrxReportSaveMode.Full);
            //Set field values
            Fields.FindById("IMG_NAME").Value := OpenReportDlg.Object.Id;
            Fields.FindById("IMG").Value := RepStream;
            //Save changes
            Cache.Post;
            //Load field values to components
            LoadRecord;
            Dispose RepStream;
        End If;
    End Sub BAddOnClick;

    Sub LoadRecord;
    Var
        RepStream: IIOStream;
        CrInfo: IMetabaseObjectCreateInfo;
        Rep: IPrxReport;
    Begin
        ImageName.Text := Fields.FindById("IMG_NAME").Value;
        RepStream := IOStream.FromVariant(Fields.FindById("IMG").Value);
        //Create temporary regular report, to which table report will be loaded
        CrInfo := MB.CreateCreateInfo;
        CrInfo.ClassId := MetabaseObjectClass.KE_CLASS_PROCEDURALREPORT;

        Rep := MB.CreateObject(CrInfo).Edit As IPrxReport;
        RepStream.Position := 0;
        Rep.LoadFromStream(RepStream);
        //Output regular report to component on the form
        UiReport1.Active := True;
        UiReport1.Instance := Rep As IPrxReport;
        Dispose RepStream;
    End Sub LoadRecord;

End Class TESTForm;