Помогите создать таблицу "напоминаний" (Page 2 of 2)

if SQLExecute('SELECT count(id)FROM Color;')='0' then
      begin
      SQLEXecute('INSERT INTO Color(questionColorText,questionColorBackground,answerColorText,answerColorBackground'+
      ',answerColorTextLeave,answerColorTextClick,answerColorBackgroundLeave,answerColorBackgroundClick)VALUES('+
      '"$000C0C0C","$00F9F9F9","$000C0C0C","$00E8E8E8","$008C0000","$003A7676","$00C9C9C9","$00E8E8E8")');
      end;
  // обновить таблицу
  updateDataBase('Color');

if  SQLexecute('SELECT (JulianDay("now") - JulianDay(date))* 24 FROM ваша_таблица WHERE id='+ ваше _условие) > 24

if (FormatDateTime('hh', now) > '12') then 

procedure 

...
form1.Button5.Visible := false;
...

Form1_TableGrid1_OnChange (Sender: TObject);
var
    i, Ii, cR, cC : integer;
begin
    cR := Form1.TableGrid1.RowCount - 1;
    cC := Form1.TableGrid1.Columns.Count - 1;

    Form1.TableGrid1.BeginUpdate;
    for i := 0 to cR do
    begin
        //Условие сравнение разности дат из 2го столбца
        if (Form1.TableGrid1.Cells[0,i] <>'') and (Date - StrToDateTime(Form1.TableGrid1.Cells[0,i]) >=0) then
        begin
            for Ii:=0 to Cc do Form1.TableGrid1.Cell[Ii,i].Color := $adffaf;
        end;
        if (Date - StrToDateTime(Form1.TableGrid1.Cells[0,i]) >=5) then
        begin
            for Ii:=0 to Cc do Form1.TableGrid1.Cell[Ii,i].Color := $addfff;
        end;
        if (Date - StrToDateTime(Form1.TableGrid1.Cells[0,i]) >=10) then
        begin
            for Ii:=0 to Cc do Form1.TableGrid1.Cell[Ii,i].Color := $adafff;
        end;
     end;
    //Обнавление таблицы
    Form1.TableGrid1.EndUpdate;
    //Формирование "напоминания"
    if (FormatDateTime('hh', now) > '12') then form1.Button5.Visible := true;
end;

 if (FormatDateTime('hh', now) > '12') then form1.Button5.Visible := true;