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);

 AnsiString path = ListView1->Items->GetNamePath();
        jpg->LoadFromFile(path);

bmp->Width = 100;
bmp->Height = 100;

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();
            AnsiString path = ListView1->Items->Item[i]->SubItems->Strings[2];
            AnsiString name = ExtractFileName(path);
            int pos = name.LastDelimiter(".");
            name = name.SubString(1, pos-1);
            AnsiString new_path = ExtractFilePath(path) + name + "_resized.jpg";
 
            jpg->LoadFromFile(path);
            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(new_path);
            
            delete jpg;
            delete bmp;
        }
    }
}
//---------------------------------------------------------------------------

bmp->Width = 100;
bmp->Height = 100;

num = ( 100 *(i/ListView1->Items->Count));
          ProgressBar1->Position = num ;

AnsiString  str;

double x1=100,x2=223;
double h=x1/x2;
str.printf( "%.3f\n", h );

int x1=100,x2=223;
double h=x1/x2;
str.printf( "%.3f\n", h );

double num = ( (double)100 *((double)i/(double)ListView1->Items->Count));
          ProgressBar1->Position = num ;

void __fastcall TForm1::About1Click(TObject *Sender)
{
???
}

void __fastcall TForm1::About1Click(TObject *Sender)
{
AboutBox->ShowModal();
}

#include "Unit2.h"
Form2->Show();