[D7] Erreur Jpeg

Bonjour,

J'essaye d'enregistrer un Jpeg dans un fichier en utilisant le code de l'exemple de D7 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure TForm1.Button1Click(Sender: TObject); var jp: TJPEGImage; //nécessite l'ajout de l'unité "jpeg" à la clause "uses". begin jp := TJPEGImage.Create; try with jp do begin Assign(Image1.Picture.Bitmap); SaveToFile('d:\Test.jpg') end; finally jp.Free; end; end;
J'ai une exception EJPEG avec le message 'JPEG Error#12' sur la ligne SaveToFile.
Le fichier créé Test.Jpg fait 0k.

Quelqu'un a une idée d’où cela vient ?
Merci
A+
Charly