сохранение картинки с компонента Image

[Karina89]

Не могу организовать сохранение картинки формата .jpg с компонента Image1 по нажатию кнопочки.
Когда нажимаю кнопочку, то выскакивает диалоговое окно для сохранения. Если ввести имя и сразу сохранить, то работает. Если выбрать начинать выбирать папку, то выскакивает ошибка:

Project Project1.exe raised exception class EIInvalidGraphic with message 'Unknown picture file extension (.lnk)'. Process stopped. Use Step or Run to continue

Код программы следующий:

procedure TForm1.Button2Click(Sender: TObject);
var
  FName:string;
begin
   FName:=edit8.text;
   if SPD.Execute
        then begin
                   FName:=OPD.FileName;
                   Image1.Picture.SaveToFile(FName+'.jpg');
        end;
end;

Помогите, пожалуйста, сделать так, чтобы можно было выбирать нужную папку для сохранения

[Karina89]

SPD - SavePictureDialog
OPD - OpenPictureDialog

[Hacker19_90]

if SavePictureDialog1.Execute then
        Image1.Picture.SaveToFile(SavePictureDialog1.FileName);

Как то так!

[Karina89]

спасибо!
но все-равно, когда начинаю выбирать папку, опять выскакивает та же ошибка(((

[Swarog]

во первых

   if SPD.Execute
        then begin
                   FName:=OPD.FileName;

Вы обращаетесь к разным компонентам

во-вторых сохранять стандартными средствами можно только в BMP, для JPEG нужно использовать сторонние модули

[Karina89]

аа...я уже по-всякому обращалась...
никак не получается...(

[Swarog]

в какой формат Вы сохраняете?

[Valio]

Скидывай свой проект сюда.

В uses добавлен модуль JPEG?