procedure GetNextTwoWeekBusinessDates(Start: TDateTime; Dates: TList<TDateTime>);
var
  I: Integer;
  CurDay: TDateTime;
begin
  for I := 0 to 13 do
  begin
    CurDay := IncDay(Start, I);
    if DayOfTheWeek(CurDay) in [DayMonday..DayFriday] then
      Dates.Add(CurDay);
  end;
end;