动态生DBImage来显示数据库中的图像，出现问题，DBImage的个数是对了，但显示的图像都是一个样！已贴出源码，大伙帮我分析一下哪儿问题！ (100分)

如题，执行结果是DBImage的数目是对的，刚好是多少个记录多少个图像，但图像都是同一副


unit imageBrow;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls;

type
TFImageBrow = class(TForm)
Procedure CreateImage(nLeft,nTop:integer);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FImageBrow: TFImageBrow;

implementation
uses Unit2, Unit1;
{$R *.dfm}

Procedure TFImageBrow.CreateImage(nLeft,nTop:integer);
var
aDbImage:TDbImage;
aLabel:TLabel;
aDbText:TDbText;
begin
//建立一个DbImage 来显示图像
aDbImage:=TDbImage.Create(self);
With aDbImage do
begin
Parent:=FImageBrow;
Left:=nLeft;
top:=nTop;
height:=96;
Width:=96;
Stretch:=True;
DataSource:=UserCard.DataSource1;
DataField:='相片';
end;
//建立一个Label值为姓名
aLabel:=TLabel.create(self);
aLabel.Parent:=FImageBrow;
aLabel.Left:=nLeft+2;
aLabel.Top:=ntop+98;
aLabel.Caption:='姓名:';

//建立一个DbText 显示对应的姓名
aDbTExt:=TDbTExt.Create(self);
aDbText.Left:=nLeft+34;
aDbText.Parent:=aLabel.parent;
aDbTExt.Top:=aLabel.Top;
aDbText.DataSource:=aDbImage.DataSource;
aDbText.DataField:='姓名';

end;

procedure TFImageBrow.FormCreate(Sender: TObject);
var
nHeight,nWidth,nTop,nLeft:Integer;
begin
nheight:=FImageBrow.Height;
nWidth:=FImageBrow.width;
ntop:=10;
nLeft:=10;
With UserCArd.adoTable1 do
begin
first;
While not Eof do
begin
CreateImage(nleft,ntop);
nLeft:=nLeft+106;
if nWidth-nLeft<10 then
begin
nLeft:=10;
nTop:=nTop+126;
end;
Next;
end; //while
end; //with
end;

end.

每一个DataSource一次只有对应一条当前记录啊，用dbimage当然所有的都显示同一条记录的图片啦。我建议用image就可。
然后用例如下面;
table1.first;
while not table1.eof
begin
aImage:=TImage.Create(self);
...
loadDbtoImage(imagea);
table1.next;
end;

OK,搞定了，你的中文提示对我很用有用，下午脑子糊糊的，不知怎么搞到这个死胡同里
面去了。现在搞定了，谢谢你。