怎么给动态创建的控件Timage.name赋值?

                            
代码如下:   
  while   not   adoq1.Eof   do  
      begin  
          with   TImage.Create(ScrollBox1)   do  
          begin  
              Parent:=ScrollBox1;  
              Width:=60;  
              Height:=80;  
              Name:=adoq1.FieldByName('hybh').asString;     //出错????  
              Tag:=3;  
              Stretch:=true;  
              Center:=true;  
              cursor:=crHandPoint;  
              Visible:=true;  
              OnClick:=reloadPic;  
          end;  
      end;  
   
  多谢!!!

查看回复