compess images (Разработка программы)

    void __fastcall TForm1::Button3Click(TObject *Sender)
{
     FILE *FOpen;
 
    if( OpenDialog->Execute() )
    {
        FOpen = fopen(OpenDialog->FileName.c_str(), "r+");
                    }
                ListView1 -> AddItem(OpenDialog->FileName,NULL);
 
    fclose(FOpen);

void __fastcall TForm1::compressClick(TObject *Sender)
{
 
 for (int i = 0; i < ListView1->Items->Count; i++)
 { if (ListView1->Items->Item[i]->Checked == true)
      {        Graphics::TBitmap * bmp = new Graphics::TBitmap();
        TJPEGImage * jpg = new TJPEGImage();
        jpg->LoadFromFile("file.jpg");
        bmp->Width = 100;
        bmp->Height = 100;
        bmp->Canvas->StretchDraw(TRect(0,0,bmp->Width,bmp->Height),jpg);
        jpg->Assign(bmp);
        jpg->CompressionQuality = 75;
        jpg->PixelFormat = jf24Bit;
        jpg->Compress();
        jpg->SaveToFile("newfile.jpg");
        delete jpg;
        delete bmp;
      }
 }
}

virtual void __fastcall SaveToFile(const AnsiString Filename); 
или
virtual void __fastcall SaveToFile(System::UnicodeString Filename);

jpg->SaveToFile("newfile.jpg");

jpg->SaveToFile("newfile.jpg");

virtual void __fastcall SaveToFile(const AnsiString path);

private:    // User declarations
    
public:     // User declarations
    void __fastcall MyFunc (void);

void __fastcall MyFunc::MyFunc(void)
{
    ...
}