请高手帮我看一下，为什么我的图片显示不出来呢？？？ ( 积分: 20 )

如题，说明：参数都己声明，且编译通过，ADODateSet1.Commandtext:='select * from Atable where id=:id'.
begin
dm1.ADODataSet1.Close;
DM1.ADODataset1.Parameters.ParamByName('id').Value:=edit1.Text;
DM1.ADODataSet1.Open;
tmpStream:=TMemoryStream.Create;
try //开始保存
DM1.ADODataset1.Edit;
tmpStream.LoadFromFile('d:/picture/aaa.bmp);
tmpstream.SaveToFile('c:/cc.bmp');//图片能保存到C：/cc.bmp中证明了图片己保存到Stream中
DM1.ADODataSet1.Edit;
TBlobfield(DM1.ADODataSet1.FieldByName('photo')).LoadFromStream(tmpstream);//关键好象是这句不起作用 ！！
finally
tmpStream.Free;
end;

如题，说明：参数都己声明，且编译通过，ADODateSet1.Commandtext:='select * from Atable where id=:id'.
begin
dm1.ADODataSet1.Close;
DM1.ADODataset1.Parameters.ParamByName('id').Value:=edit1.Text;
DM1.ADODataSet1.Open;
tmpStream:=TMemoryStream.Create;
try //开始保存
DM1.ADODataset1.Edit;
tmpStream.LoadFromFile('d:/picture/aaa.bmp);
tmpstream.SaveToFile('c:/cc.bmp');//图片能保存到C：/cc.bmp中证明了图片己保存到Stream中
DM1.ADODataSet1.Edit;
TBlobfield(DM1.ADODataSet1.FieldByName('photo')).LoadFromStream(tmpstream);//关键好象是这句不起作用 ！！
finally
tmpStream.Free;
end;

DM1.ADODataSet1.Edit;
tmpstream.position := 0;
TBlobfield(DM1.ADODataSet1.FieldByName('photo')).LoadFromStream(tmpstream);//关键好象是这句不起作用 ！！

应该给流指针复位.
tmpstream.position := 0;//加上这句.
TBlobfield(DM1.ADODataSet1.FieldByName('photo')).LoadFromStream(tmpstream);//关键好象是这句不起作用 ！！

我发现问题了，光给流指针复位还不够，还少了一句：DM1.ADODataSet1.Post;[][][]

多人接受答案了。