[NumLock]

Сообщение от sergeyrca

через стрим

Код:

var
  MemoryStream: TMemoryStream;
  jpg: TJPEGImage;
begin
  MemoryStream:=TMemoryStream.Create;
  try
    Image1.Picture.Graphic.SaveToStream(MemoryStream);
    MemoryStream.Position:=0;
    jpg:=TJPEGImage.Create;
    try
      jpg.LoadFromStream(MemoryStream);
      Image2.Picture.Assign(jpg);
    finally
      jpg.Free;
    end;
  finally
    MemoryStream.Free;
  end;
end;