обновление счетчика

Добрый день Дмитрий!

Поскольку я совсем далек от программирования, посмотрите пожалуйста что я сделал не так
Да и формат даты у меня чч.мм.гггг (а в примере тока на год опирается)
Заранее спасибо.

В скрипте пишет ошибку ссылаясь на 5:47, но на данной точке просто пробел.

Странно у меня вот такой скрипт:

procedure Form1_TableGrid1_OnAfterSort (Sender: string; ACol: Integer);
begin
           if Acol=0 then
           begin
              Form1.TableGrid1.dbCustomOrderBy := 'dataout, record_count';
              Form1.TableGrid1.dbUpdate;
           end;
end;

procedure frmApplication_OnShow (Sender: string; Action: string);
begin
         if Action='Newrecord' then
         begin
              frmApplication.DateTimePicker2.Text := FormatDateTime('dd.mm.yyyy', now);
              frmApplication.EditCounter2.Text := SQLExecute ('SELECT IFNUL(MAX(record_count), 0)+1 FROM Application WHERE dataout='+FormatDateTime('dd.mm.yyyy', now));
         end;
end;

procedure Form1_TableGrid1_OnChange (Sender: string);
var
   i,c: integer;
   k,q: integer;
   s: string;
begin
     Form1.TableGrid1.BeginUpdate;

     q := Form1.TableGrid1.Columns.Count-1;
     c := Form1.TableGrid1.RowCount - 1;
     for i := 0 to c do
     begin
            if Form1.TableGrid1.Cells[7,i] = 'УТВЕРЖДЕНИЕ' then
         begin
             s := Form1.TableGrid1.Cells[4,i];
             if ValidDate(s) then
                 if (StrToDate(s) + 4) < now then
                     for k := 0 to q do
                         Form1.TableGrid1.Cell[k,i].Color := clRed;
         end;

             if Form1.TableGrid1.Cells[7,i] = 'ПОЛУЧЕНИЕ КП' then
         begin
             s := Form1.TableGrid1.Cells[15,i];
             if ValidDate(s) then
                 if (StrToDate(s) + 3) < now then
                     for k := 0 to q do
                         Form1.TableGrid1.Cell[k,i].Color := clyellow;
         end;

     end;

     Form1.TableGrid1.EndUpdate;
end;

begin

end.

Добавил вновь заархивированную. Правда удалил запускной файл, поскольку с ним не пропускает прищепку.

Я так понимаю вот эта процедура для сортировки в гриде?

procedure Form1_TableGrid1_OnAfterSort (Sender: string; ACol: Integer);
begin
           if Acol=0 then
           begin
              Form1.TableGrid1.dbCustomOrderBy := 'dataout, record_count';
              Form1.TableGrid1.dbUpdate;
           end;
end;

А вторая опирается на окно даты, но при создании у меня не стоит там дата. И посему при создании у меня не начинается новая нумерация.
Как можно сделать так чтобы при создании новой заявки там сразу стояла текущая дата? (может тогда у меня будет нумерация идти)