ms->Seek( 0 , 0 );
  Graphics::TBitmap * bmp=new Graphics::TBitmap();
  bmp->LoadFromStream(ms);
  TJPEGImage * jpg=new TJPEGImage();
  jpg->Assign(bmp);
  jpg->CompressionQuality=CompQ;
  jpg->Compress();
  jpg->SaveToFile("C:\\op.jpg");
  this->Image1->Picture->Assign(jpg);
  delete jpg;
  delete bmp;

TMemoryStream MS;
TJPEGImage    jpg;

 1 ) MS-->Position= 0 ;
 2 ) jpg-->SaveToStream(MS);
 3 ) MS-->Position= 0 ;
 2 ) jpg-->LoadFromStream(MS);

TJPEGImage * jpeg=new TJPEGImage();
    jpeg->LoadFromFile("C:\\OK.JPG");
    //jpeg->JPEGNeeded();
    jpeg->CompressionQuality= 40 ;
    jpeg->Compress();
    TMemoryStream *stream = new TMemoryStream;
    jpeg->SaveToStream(stream);
    stream->Position =  0 ;
    ShowMessage(stream->Size);
    jpeg->LoadFromStream(stream);

    Image1->Picture->Assign(jpeg);

    delete stream;
    delete jpeg;