// Convert BMP file to JPEG
bmp := TIEBitmap.create();
try
  bmp.Read( 'D:\image.bmp' );
  bmp.Write( 'D:\image.jpg' );
finally
  bmp.Free;
end;