type   TRec=Record     msg:string;     pic:TMemoryStream; end; procedure TForm2.BitBtn1Click(Sender: TObject); var   ms:TMemoryStream;   Rec1,Rec2:TRec;   cc:tmemorystream;   jpg:TJPEGImage; begin   Rec1.msg:='Hello World';   Rec1.pic := tmemorystream.Create;   image1.Picture.Graphic.SaveToStream( Rec1.pic );   Rec1.pic.Position := 0;   ms:=TMemoryStream.Create;   ms.Write(Rec1,SizeOf(Rec1));   ms.Position:=0;   ms.Read(Rec2,SizeOf(Rec2));   ms.Free;   ShowMessage(Rec2.msg);   jpg := tjpegimage.Create;   jpg.LoadFromStream(Rec2.pic);   image2.Picture.Assign(jpg)   //image2.Picture.Graphic.LoadFromStream( Rec2.pic ); end;