Найти разность элементов массива

[Serebah]

Помогите найти разность ВЫБРАННЫХ а НЕ СОСЕДНИХ элементов массива.
,,,,,
DataKonca,DataNachala: array of TDate;
DneyMegdu: array of integer;
i:integer;
,,,,,

for i:= 1 to Form3.StringGrid1.RowCount-1 do begin
DataNachala[i] := StrToDate(Form3.StringGrid1.Cells[2, i]);

if (DataNachala[i]>= Form1.DateTimePicker1.Date) AND
(DataNachala[i]<=Form1.DateTimePicker2.Date)
then begin

DneyMegdu[i]:= DaysBetween(DataNachala[i], DataNachala[i]);
Вот эта строчка и не получается.
Как ее сделать чтоб разница дней получалась между элементом массива и следующим выбранным элементом массива?

[ArtGrek]

DneyMegdu[i]:= DaysBetween(DataNachala[i], DataNachala[i + 1]);

[Serebah]

Нет. Так считает соседние элементы, а у меня есть условие If которое выбирает все значения попадающие в некий диапазон. А это совсем не соседние будут.

[ArtGrek]

не знаю что там у вас за диапазон, но лично я не понял по вашему примеру
как должна работать программа, поясните, что б было возможным вам помоч

[Serebah]

Есть список дат в Form3.StringGrid1.Cells[2, i]
Нужно из этого списка выбрать даты находящиеся в диапазоне между датами находящимися в Form1.DateTimePicker1.Date и Form1.DateTimePicker2.Date
А потом найти количество дней между выбранными датами.

[ArtGrek]

между выбранными датами.

между Picker1.Date и Picker2.Date
DaysBetween

выбрать даты находящиеся в диапазоне

for i:= 1 to Form3.StringGrid1.RowCount-1 do begin
  if (StrToDate(Form3.StringGrid1.Cells[2, i]) >= Form1.DateTimePicker1.Date) and
    (StrToDate(Form3.StringGrid1.Cells[2, i]) <= Form1.DateTimePicker2.Date) then
      ShowMessage('Date is in interval!');

[Serebah]

Нет.
Количество дней нужно между датами которые выбраны из Form3.StringGrid1.Cells[2, i]

[ArtGrek]

если в диапазон попадут 5 дат, какие сравнивать?

[Serebah]

Все даты сравнивать нужно 1 со 2, 2 с 3, 3 с 4 и т.п.