Gerar parcelas dias da semana

procedure TForm1.Button1Click(Sender: TObject);
var
 Feriados : TStringList;
 Qry : TIBQuery;
begin
  { Carregar Feriados }
  Qry := TIBQuery.Create(Self);
  Qry.SQL.Add('SELECT DATA FROM FERIADOS ORDER BY 1');
  Qry.Open;

  Feriados := TStringList.Create;

  while not Qry.EOF do
  begin
    Feriados.Add(FormatDateTime('dd/mm/yyyy', Qry.FieldByName('DATA').AsDateTime));
    Qry.Next;
  end;

  Feriados.Sorted:=true;
  FreeAndNil(Qry);

  { Verificar se uma data é feriado }
  if Feriados.IndexOf(FormatDateTime('dd/mm/yyyy', Qry.FieldByName('DATA').AsDateTime) >= 0)  then

  else {não feriado};
end;

function TForm1.Feriado(Data: TDateTime): Boolean;
begin
  Result := (Feriados.IndexOf(FormatDateTime('dd/mm/yyyy', Qry.FieldByName('DATA').AsDateTime)) >= 0);
end;

if ( (DayOfWeek(DataParcela) in [1,7]) or Feriado(DataParcela) ) then 
  DataParcela:=DataParcela+1;

while not DiaUtil(vencimento) do
   vencimento := vencimento + 1;

function DiaUtil(dia: date): boolean;
begin
   result := not( (DayOfWeek(dia) in [1,7]) or qryFeriado.Locate('Data', dia) );
end;

for i := 0 to Pred(NumParcelas) do
begin
    DataParcela := AddMonths(DataOrigPrimParcela,i);

    while not DiaUtil(DataParcela) do
        DataParcela := DataParcela + 1;

    // Saiu do loop, então faça o que for necessário com a DataParcela
    // to-do
end;

Intervalo := 15; // 15 dias entre as parcelas
DataParcela := 15/11/2024; // ou uma função que retorne o dia atual

for i := 0 to Pred(NumParcelas) do
begin
    DataParcela := DataParcela + Intervalo; // soma os dias de intervalo.
    DataGravar := DataParcela; // esta data será manipulada até encontrar o dia útil
 
    while not DiaUtil(DataGravar) do
        DataGravar := DataGravar + 1;
 
    // Saiu do loop, então faça o que for necessário com a DataGravar
    // to-do

end;

19/11/2024-100
20/11/2024-100
21/11/2024-100
22/11/2024-100
25/11/2024-100
25/11/2024-100
25/11/2024-100
26/11/2024-100
27/11/2024-100
28/11/2024-100

procedure TForm1.Button1Click(Sender: TObject);
var
  Intervalo, i, NumParcelas, SubParc : Integer;
  DataParcela, DataGravar, DataPrimParcela : TDate;
  ValorParcela, Sobra, Total : Double;
begin
  Intervalo    := StrToInt(edintervalo.Text);; // 15 dias entre as parcelas
  DataParcela  := DateTimePicker1.Date; // ou uma função que retorne o dia atual
  DataPrimParcela := DateTimePicker1.Date;
  NumParcelas  := StrToInt(edNumParcelas.Text);
  ValorParcela := 0;
  Total        := StrToFloat(StringReplace(Trim(EdTotal.Text), '.', '', [rfReplaceAll]));

  for i := 0 to Pred(NumParcelas) do
  begin
    if RBIntervalo.Checked = True then
    begin
      DataParcela := DataParcela + Intervalo; // soma os dias de intervalo.
      DataGravar := DataParcela; // esta data será manipulada até encontrar o dia útil
    end
    else
    DataGravar := IncMonth(DataPrimParcela,i);

    while not DiaUtil(DataGravar) do
      DataGravar := DataGravar + 1;

    if i = Pred(NumParcelas) then
    begin
      SubParc      := StrToInt(edNumParcelas.Text) - 1;
      Sobra        := ValorParcela * SubParc;
      ValorParcela := Total - Sobra;
    end
    else
      ValorParcela := StrToFloat(FormatFloat('0.00',Total / NumParcelas));

    Memo1.Lines.Add(DateToStr(DataGravar) + '-' + FloatToStr(ValorParcela));
  end;
end;