procedureTForm1.Button1Click(Sender:TObject);

var

memoStream,OleStream:TStream;

Stream:IStream;

begin

image1.Picture:=nil;

image2.Picture:=nil;

//显示初始照片

image1.Picture.LoadFromFile('c:logo.bmp');

memoStream:=TmemoryStream.Create;

try

//将照片保存为TmemoryStream

image1.Picture.Bitmap.SaveToStream(memoStream);

memoStream.Position:=0;

//将TmemoryStream转成IStream

stream:=TStreamAdapter.Create(memoStream);

//将IStream转成TOleStream==TmemoryStream

OleStream:=TOleStream.Create(Stream);

image2.Picture.Bitmap.LoadFromStream(OleStream);

finally

memoStream.Free;

OleStream.Free;

end;

end;

///////////////////////////

uses

....................AxCtrls,ActiveX;//必加此二单元