Нужно правильно задать значения элементов масива

[Serebah]

Доброго времени суток.
Помогите решить такую задачку. Есть два динамических массива, размер которых равен количеству столбцов СтринГрида и значения в массив задаются из этого же СтринГрида в формате дат. В первый столбец дата начала периода а во второй столбец дата конца периода и нужно определить количество дней между датами.
Решаю так:

PHP код:

var
i:integer;
DataNachala, DataKonca : array of TDateTime;
begin
SetLength(DataNachala,i);
SetLength(DataKonca,i);
for i:= 1 to Form3.StringGrid1.RowCount-1 do begin
DataKonca[i] :=   StrToDate(Form3.StringGrid1.Cells[1, i]);
DataNachala[i] :=  StrToDate(Form3.StringGrid1.Cells[0, i]);
Label22.Caption := Label22.Caption +  IntToStr(DaysBetween
(DataNachala[i], DataKonca[i]))+';'; 


Однако, дальше задача стоит в том, чтоб первый элемент массива даты начала (DataNachala : array of TDateTime) всегда был равен дате заданной в DateTimePicker1.DateTime; а остальные как и раньше в цикле из СтринГрида. И дни между датами определяло соответственно:
первый размежду
Заданной в массиве DateTimePicker1.DateTime и DataKonca[i]
а дальше между массивами как и раньше.

[Serebah]

Пишу это все в Делфи

[Serebah]

Вообщем, как сделать чтоб первый елемент масива задавался из дататайм пикера, а остальные из Стрин ГРида?

[Serebah]

Как сделать чтоб получилось так:
DataNachala[Первый элемент из i] := DateTimePicker1.DateTime;
DataNachala[Остальные элементы кроме первого из i] := StrToDate(Form3.StringGrid1.Cells[0, i]);

[Serebah]

Подскажите хоть как-то. Очень нужно.