关于文检流和内存流的问题

各位老大你们好:
  请教一个问题,我把多个图片通过文检流合并成了一个文件,文件的格式是|图片大小|图片数据|图片大小|图片数据|....我想把我定义的这个文件中的图片取出来然后显示到程序的TImage组建中,用文件流先读出数据然后写到硬盘,再显示,这个我已经会了,我现在想问各位老大一个问题,我怎么才可以读出我定义的文件中的一个图片,不写到硬盘,直接显示到程序的TImage组件中,在网上看到了一片文章,但是用他提供的函数根本就不能实现:  文章名字是:[谈Delphi编程中“流”的应用－－陈经韬]附上他的函数:
Function Cjt_BmpLoad(ImgBmp:TImage;SourceFile:String):Boolean;
var
Source:TFileStream;
MyFileSize:integer;
begin
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone);
try
try
Source.Seek(-sizeof(MyFileSize),soFromEnd);
Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));//读出资源
Source.Seek(-MyFileSize,soFromEnd);//定位到资源开始位置
ImgBmp.Picture.Bitmap.LoadFromStream(Source);
finally
Source.Free;
end;
except
Result:=False;
Exit;
end;
Result:=True;
end;
------------------------------------------------------------
Source.Seek()这里我定义指针到我图片数据的开始位置Source.ReadBuffer()这里我读取的大小是我图像数据的大小
我菜鸟一个,看上面代码完全可以实现我想要的功能啊,怎么就不行啊,返回的值总是:False请各位老大指点迷津....