Compresion de un jpg

[Raze]

estoy intentando comprimir un jpg con ayuda de TJpegImage y no consigo resultados. El código, compilado en Delphi 6 es el siguiente

fotografia := TJPegImage.Create;
fotografia.LoadFromfile('c:\sincomprimir.jpg);
fotografia.CompressionQuality := 30;
fotografia.Compress;
fotografia.SaveToFile('c:\comprimido.jpg);
fotografia.Free;

al ejecutarlo, el fichero comprimido.jpg ocupa 0 kb. Si prescindo de la orden compress lo crea bien, pero del mismo tamaño del anterior.

¿¿que estoy haciendo mal??