[Agasfer2010]

Доброе время суток! У меня проблема в этом месте кода:

Код:

DayDB := IntToStr(DaysBetween(IncDay(IncYear(ADOQuery1.FieldByName('bd').AsDateTime, YearsBetween(date, ADOQuery1.FieldByName('bd').AsDateTime) + 1) + 0), now));
FIOBD := ADOQuery1.FieldByName('FIO').AsString;
case StrToInt(DayDB) of
0: begin
    s[1, i][1] := 'Сегодня день рождения у:';
    s[1, i][2] := FIOBD;
    s[1, i][3] := 'Исполняется: ' + IntToStr(YearsBetween(date, ADOQuery1.FieldByName('bd').AsDateTime) + 1);
   end;
1: begin
    s[2, i][1] := 'Завтра день рождения у:';
    s[2, i][2] := FIOBD;
    s[2, i][3] := 'Исполняется: ' + IntToStr(YearsBetween(date, ADOQuery1.FieldByName('bd').AsDateTime) + 1);
   end;
2: begin
    s[3, i][1] := 'Послезавтра день рождения у:';
    s[3, i][2] := FIOBD;
    s[3, i][3] := 'Исполняется: ' + IntToStr(YearsBetween(date, ADOQuery1.FieldByName('bd').AsDateTime) + 1);
   end;
end;

А заключается она в следующем:
когда DayDB = 2, то этот блок обрабатывается, но строки в массив не заносятся. Массив объявлен так:

Код:

s: array [1..3,1..10000] of array [1..3] of string;

Помогите, очень нужно. Эта программа будет напоминать о днях рождениях.