procedure TForm1.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;    //必加此二单元