assign TTMSFNCImage from TTMSFNCTableViewItem.Bitmap

WEB TMS WEB Core
5

My code is this : imgProd is a TMSFNCImage

Class Function TfrmDetProd.CreateForm(AElementID:String; AItem:TTMSFNCTableViewItem; QtaIns:Smallint = 0):TWebForm;

  Procedure AfterCreate(AForm: TObject);
  Begin
    With TfrmDetProd(AForm) Do Begin
      txtDesc.Text:=Format(
          '<div>'+
          '  <p align="left"><font size="20" color="gcBlack"><b>%s</b></font></p>'+
          '  <p align="right"><font size="16" color="gcBlack"><b>%s</b></font></p>'+
          '  <p align="left"><font size="12" color="gcGray">%s</font></p>'+
          '</div>',[AItem.HTMLTemplateItems.Values['DESC'], AItem.HTMLTemplateItems.Values['PREZZO'],
                    AItem.HTMLTemplateItems.Values['DESC_EXT']]);

      imgProd.Bitmaps.Clear();
      imgProd.Bitmaps.AddBitmap(AItem.Bitmap);

      If QtaIns > 0 Then
        Ins_VivVar(StrToInt(AItem.Text), QtaIns);

      With wdVar Do Begin
        QueryString:=Format('$filter=(Tipo_Art eq ''%s'')',['VAR']);
        Load();
      End;
    End;
  End;