🚀 go-pugleaf

Hello again Remy,
I say my source return error, not your source.
My source here is:

Procedure TMain.BitBtn3Click(Sender: TObject);
Var hSource, hTarget: TFileStream; hChoose: String;
     hBuf: Byte; hBin, hExt, hInt: Integer; hLen: Longint;
Begin
    hBin := 0;
    hExt := 0;
    hLen := StrToInt(Edit3.Text);
    hSource := TFileStream.Create(Edit1.Text, fmOpenRead
    or fmShareDenyWrite);
    Progress.Max := hSource.Size;
    for hInt := 0 to hSource.Size - 1 do
    Begin
       Inc(hExt);
       hChoose := Format('%s.%.3d', [Edit2.Text, hExt]);
       hTarget := TFileStream.Create(hChoose, fmCreate);
       Repeat
          Inc(hBin);
          hSource.ReadBuffer (hBuf, 1);
          hTarget.WriteBuffer(hBuf, 1);
          Progress.Position := hSource.Size;
       Until hBin = hLen;
       hTarget.Free;
    End;
    hSource.Free;
    Progress.Position := 0;
End;
-------------------------------------------------------------------------
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)));
          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 a lot,
Safari