Сохранение картинки из sImage1 через sSavePictureDialog1

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Optimization.h"
#include "jpeg.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sSkinManager"
#pragma link "sGroupBox"
#pragma link "sPanel"
#pragma link "sButton"
#pragma link "acImage"
#pragma link "sDialogs"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sButton1Click(TObject *Sender)
{
if (sOpenPictureDialog1->Execute()) {
sImage1->Picture->LoadFromFile(sOpenPictureDialog1->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sButton2Click(TObject *Sender)
{
if (sSavePictureDialog1->Execute()) {
sImage1->Picture->SaveToFile(sSavePictureDialog1->FileName);
}
}
//---------------------------------------------------------------------------