procedure ShowBarcode(ALeft,ATop,Awidth,AHeight:integer;
                                AddStr:string;UAPage:TfrPage);
var
  ShowBarcode:TfrBarcodeView;
begin
  ShowBarcode:=TfrBarcodeView.Create ;
  ShowBarcode.SetBounds(ALeft,ATop,AWidth,AHeight);
  ShowBarcode.Memo.Clear ;
  //ShowBarcode.Memo.Add(AddStr);
  ShowBarcode.Memo.Values[AddStr];
  UAPage.Objects.Add(ShowBarcode);
end;

我用以上代码动态创建Barcode控件,但是值一直是默认的值(12345678),怎样才能给控件赋值,改变类型.