字符串转控件名 FindComponent

FindComponent功能是找控件，找到就返回控件，找不到就是nil

方法一：

Image0.Picture:=(Form3.FindComponent('Image'+IntToStr(i)) as TImage).Picture;

方法二：

Image0.Picture:=TImage(Form3.FindComponent('Image'+IntToStr(i))).Picture;

方法三：

procedure TForm3.Button1Click(Sender: TObject);
var
    aCompent: TComponent;
begin
     aCompent :=Form3.FindComponent('Image'+IntToStr(i));
     if aCompent  <> nil then
     begin
             with (aCompent as TImage).Picture do
             begin
                  Icon:=Image0.Picture.Icon;
             end;
end；