Delphi - Problema al generar un JPG

Tengo una imagen .bmp y la quiero pasar al formato .jpg pero al hacer el proceso la crea totalmente negra, alquien sabe por que puede ser???

Un saludo!

No sabria decirte el porque aqui hay un link donde hacen la conversion de *.bmp a *.jpeg

http://www.q3.nu/trucomania/ftesp.html

ve si te puede ayudar

Declara en private, o donde quieras

img2:TPicture;
img:TJPEGImage;

en un boton pones lo siguiente

img2:=TPicture.Create;
img2.LoadFromFile('Tu imagen.bmp');

img:=TJPEGImage.Create;

Img.CompressionQuality:=60;//si no deseas comprimir la imagen quita esta linea y la que sigue, y si deseas comprimirla mas, o menos, solo cambia el 60 por lo que desees

Img.Compress;

Img.Assign(img.Graphic);

img.SaveToFile('Tu imagen.jpg');

Img.Free;

img2.free;

Creo que con eso debe funcionar, no estoy completamente seguro por que no tengo con que probarlo