TImage->Picture->Bitmap->LoadFromStream怎么没有效果？

[scoredhigh]

TImage->Picture->Bitmap->LoadFromStream怎么没有效果？
我写了个测试程序，有两个Image控件Image1, Image2.
TMemoryStream msStream;
msStream = new TMemoryStream();

//在Image1里画图
Image1->Canvas->TextOutA(10, 10, "画图");
Image1->Canvas->Pen->Color = clRed;
Image1->Canvas->Ellipse(50, 50, 200, 200);
然后将图保存到内存流中
Image1->Picture->Bitmap->SaveToStream(msStream);

我想在Image2中显示与Image1一样的
Image2->Picture->Bitmap->LoadFromStream(msStream);
没反应，怎么回事？

如果我通过文件的保存和运载是可以成功的
Image1->Picture->Bitmap->SaveToFile("aaa.bmp");
Image2->Picture->Bitmap->LoadFromFile("aaa.bmp");

为什么用内存流就不能成功？

[scoredhigh]

TMemoryStream msStream; 写错了，应是：TMemoryStream *msStream;

[缘中人]

msStream->Seek(0,soFromBeginning);//加上这句话
Image2->Picture->Bitmap->LoadFromStream(msStream);

[缘中人]

或者这样写也可以

  msStream->Position = 0;

[scoredhigh]

引用 3 楼 ksrsoft 的回复:

或者这样写也可以

  msStream->Position = 0;

我刚刚试出来了，就是这样，呵呵，正准备上来散分的，