procedure  TForm1.FormCreate(Sender: TObject);
 begin 
Image1.Picture.LoadFromFile('cimg.bmp');
 end ;

 procedure  TForm1.Button1Click(Sender: TObject);
 var 
  my_jpeg : TJPEGImage;
 begin 
  my_jpeg := TJPEGImage.Create;
   try 
    my_jpeg.Assign(Image1.Picture.Graphic);
    my_jpeg.CompressionQuality :=  100 ;
    my_jpeg.Compress;
    my_jpeg.SaveToFile('123.jpg');
   finally 
    ;
   end ;
 end ;

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
        {
        Image1->Picture->LoadFromFile("CIMG.BMP");
        }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
        {
        TJPEGImage * my_jpeg = new TJPEGImage;
        my_jpeg->Assign(Image1->Picture->Graphic);
        my_jpeg->CompressionQuality =  98 ;
        my_jpeg->Compress();
        my_jpeg->SaveToFile("123.JPG");
        my_jpeg->Free();
        }
//---------------------------------------------------------------------------