//uses jpeg

procedure BmpToJpegFile(bmp : TBitmap; filename : string);
var
  fotojpeg: TJpegImage;
  fotoimage: TImage;
begin
try
  fotoimage := timage.create(nil);
  fotojpeg := tjpegimage.create;
  bmp.ignorepalette := true;
  fotoimage.picture.assign(bmp);
  fotojpeg.assign(fotoimage.picture.bitmap);
  fotojpeg.SaveToFile(filename);
finally
  fotoimage.free;
  fotojpeg.free;
  end;
end;