Ошибка в новой версии программы. (Page 2 of 2)

Вы создаете программы для терминалов? И часто заказывают?

Подскажи если не трудно вариант решения
Я прикладываю проект я не могу  объединить два скрипта: суть в таблице определеные значения одной нопкой жмем и сразу всем присваиваеться статус checkboxa = 1 или 0   и автоматом ставиться дата тоже всем

Вот что у меня получилось:
При нажатии кнопки ставим всем checkbox=1 и дату
При нажатии кнопки ставим всем checkbox=0 и дату
Упростить никак нельзя ? У меня при сработке procedure frmOrder_bRezervOrder_OnClick должна ставиться и дата я вывел Button2 но все как то долго происходит может есть решениее побыстрее ? )))

//Всем в таблице ставим дату
procedure frmOrder_Button2_OnClick (Sender: TObject; var Cancel: boolean);
begin
    ChangeValues100(True);
end;
procedure ChangeValues100(value: boolean);
var
    i,c: integer;
    s: string;
begin
    if value then s := frmOrder.DateRezervaOrder.sqlDate;

    c := frmOrder.TableGrid1.RowCount-1;
    for i := 0 to frmOrder.TableGrid1.RowCount -1 do
    begin
        begin
            SQLExecute('UPDATE bsm_off SET DataRezerva = '+s + ' WHERE id='+IntToStr(frmOrder.TableGrid1.dbIndexToID(i)));
        end;
    end;
    frmOrder.TableGrid1.dbUpdate;
end;
//Всем в таблице ставим =0
procedure frmOrder_bNetDenegOrder_OnClick (Sender: TObject; var Cancel: boolean);
var
i : integer;
s: string;
begin
    For i:= 0 to frmOrder.TableGrid1.RowCount -1 do
    Begin
    If frmOrder.TableGrid1.Cell[0,i].AsBoolean = True   then
    s := '0' else s := '1';
    Begin
         SQLExecute('UPDATE bsm_off SET Rezerv = '+s +' WHERE id='+IntToStr(frmOrder.TableGrid1.dbIndexToID(i)));
    End;
    frmOrder.Button2.Click;
    End;
    frmOrder.TableGrid1.dbUpdate;
    frmOrder.Button5.Click;
end;
//Всем в таблице ставим =1
procedure frmOrder_bRezervOrder_OnClick (Sender: TObject; var Cancel: boolean);
var
i : integer;
s: string;
begin
    For i:= 0 to frmOrder.TableGrid1.RowCount -1 do
    Begin
    If frmOrder.TableGrid1.Cell[0,i].AsBoolean = True   then
    s := '1' else s := '0';
    Begin
    SQLExecute('UPDATE bsm_off SET Rezerv = '+s +' WHERE id='+IntToStr(frmOrder.TableGrid1.dbIndexToID(i)));
    End;
    frmOrder.Button2.Click;
    frmOrder.TableGrid1.dbUpdate;
    frmOrder.Button5.Click;
end;
end;

Для начала опишите ваши ожидания: как вы себе представляете логику его работы?