TJPEGImage *jp = new TJPEGImage();
try
{
jp->Assign(Image1->Picture->Bitmap);
jp->SaveToFile("c:\\converted.jpg");
}
__finally
{
delete jp;
}