[Taras2020]

Добрый день уважаемые пользователи.
Этот код разбивает текст на части и сохраняет в одной папке.

Вопрос такого плана: Как сделать что бы каждый файл сохранялся в отдельной папке при разбитии ?.

Код:

procedure TForm2.Button1Click(Sender: TObject);


  if not OpenDialog1.Execute then Exit;
  if not FileExists(OpenDialog1.FileName) then begin
    ShowMessage('Указанный файл не найден. Действие отменено.');
    Exit;
  end;

  AssignFile(F1, OpenDialog1.FileName);
  Reset(F1, 1);

  if FileSize(F1) < N then begin
    ShowMessage('Указанный файл слишком мал. Разбиение отменено.');
    CloseFile(F1);
    Exit;
  end;

  SizePart := FileSize(F1) div N;
  SizePartAdd := FileSize(F1) mod N;
  SetLength(Buff, SizePart);

  for i := 1 to N do begin
    AssignFile(F2, OpenDialog1.FileName + '.part' + IntToStr(i));
    Rewrite(F2, 1);
    BlockRead(F1, Pointer(Buff)^, SizePart);
    BlockWrite(F2, Pointer(Buff)^, SizePart);
    if (i = N) and (SizePartAdd > 0) then begin
      BlockRead(F1, Pointer(Buff)^, SizePartAdd);
      BlockWrite(F2, Pointer(Buff)^, SizePartAdd);

    end;
    CloseFile(F2);
  end;

  CloseFile(F1);
end;