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

[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;
    SavePictureDialog1.FileName:=FName;
    if SavePictureDialog1.Execute
         then begin
          Image1.Picture.SaveToFile(SavePictureDialog1.FileName+'.jpg');
end;
end;

Что тут не так?
Пожалуйста, нужно сделать так, чтобы можно было выбирать нужную папку для сохранения
P.S.: заранее спасибо!

[Swarog]

Image1.Picture.SaveToFile - может сохранять тольк в BMP

[Swarog]

не много наврал вроде поддерживаются следующие форматы
'wmf' 'emf' 'ico' 'bmp'

[Karina89]

нет! он у меня сохраняет и в .jpg!))
только папку не вариант выбрать!! нажимаю кнопочку, открывается диалоговое окно для сохранения и надо сразу сохранять...
вся проблема в том, что когда начинаю нажимать на какую-нить папку, только тогда выскакивает эта ошибка(((
я уже как только не перепробовала...

[Valio]

Проект свой скинь.

[Karina89]

эх! спасибо огромное)))
я уже разобралась)) просто он у меня почему-то, когда я выбирала ярлык, который ссылается на папку, чтобы сохранить в нем свой файл, выдавал ошибку...(