🚀 go-pugleaf

Very tanaks Remy,
I used your source and worked fine.
1. How can i choose size file with your source now?
2. My source return me: Stream read error! why?

void __fastcall TMain::BitBtn1Click(TObject *Sender)
{
     BYTE hBuf;
     int hBin = 0;
     int hExt = 0;
     int hLen = Edit3->Text.ToInt();
     if (FileExists(Edit1->Text))
     {
        TFileStream *hSource = new TFileStream(Edit1->Text, fmOpenRead |
        fmShareDenyWrite);
        Progress->Max = hSource->Size;
        for (int a = 0; a < hSource->Size; a++)
        {
           hExt++;
           AnsiString hName = Format("%s.%.3d",
           ARRAYOFCONST((Edit2->Text, hExt));
           hExt));
           TFileStream *hTarget = new TFileStream(hName, fmCreate);
           do
           {
              hBin++;
              hSource->ReadBuffer (&hBuf, 1);
              hTarget->WriteBuffer(&hBuf, 1);
              Progress->Position = hSource->Position;
           }
           while (hBin != hLen);
           delete hTarget;
        }
        delete hSource;
        Progress->Position = 0;
     }
}

Thanks again,
Safari