Дата рождения

Ув. Дмитрий. вот скрипт.

procedure Form1_TableGrid1_OnChange (Sender: string);
var
   i, c: integer;
   sCell4: string;
begin
    c := Form1.TableGrid1.RowCount - 1;
    for i := 0 to c do
        begin
              sCell4 := Form1.TableGrid1.Cells[4,i]; //Дата рождения в 4 колонке грида
              if ValidDate(sCell4) then
               begin
                 if (DaysBetween(Now, StrToDate(sCell4)) = 0) then
                     begin
                              Form1.TableGrid1.Cell[4,i].Color := clGreen;
                     end else
                     begin
                             Form1.TableGrid1.Cell[4,i].Color := clWindow;
                     end;
                end;
         end;
end;

Например дата рождения 03.12.2000, сегодня 03.12.2015. Дата становится зеленым при и 03.12.2015 и 04.12.2015. В остальные цвет становится clWindow.
1. Как это исправить?
2. Надо чтобы за день до даты рождения цвет была желтым а в день рождения была зеленым.
Помогите пожалуйста.