Delphi XE2 Firemonkey - 将图像添加到TListBox（来自文件）

Question

我创建一个简单的应用程序， 对于Delphi XE2 Firemonkey我有问题将图像加载到TListBoxItem！ 我试过了，这个步骤：

[1]： http：/ / .stack.imgur.com/b1w3d.png

[2]： http：/ / .stack.imgur.com/GGyLT.png

[3]： http：/ / .stack.imgur.com/1kYZn.png

[4]： http：/ /.stack.imgur.com/7fuug.png

代码开启按钮单击：

var
 xItem : TListBoxItem;


begin
xItem := TListBoxItem.Create(nil);
xItem.Parent := ListBox1;
xItem.Height := 90; // just for test !

// code to load image file [edit1.Text] !!

xItem.Text := edit2.Text;

end;

有人帮助我，完成这个简单！

///为我的英语而思考和抱歉!!!

Answer 1

脱离我的头顶：

var Image: TImage;

...

Image := TImage.Create(xItem);
Image.Parent := xItem;
Image.Bitmap.LoadFromFile(<FileName>);


Image.Align := TAlignLayout.alClient;  //(Not strictly necessary but guarantees images will not be positioned out of view).