сохранения данных в стрингриде после редактирования его (добавление)

[ansysadmin]

ПОДСКАЖИТЕ КАК ПРАВИЛЬНО НАПИСАТЬ ПРОЦЕДУРУ СОХРАНЕНИЯ

используя стрингрид для заявок выбираю из списка заявок (заявку ) и нажимаю отказ. после этого кнопка отказ срабатует но после выхода из программы она даннные не сохраняе. Вопрос как сделать чтобы она сохраняла данные после изменения. код обновления(выборки) и функции кнопок ниже.
procedure TForm3.Button33Click(Sender: TObject);
begin
cbox1.Clear;
qordp1.SQL.Clear;
qordp1.SQL.ADD('SELECT Nomer, Id, Id_m');
qordp1.SQL.add('FROM "Order"');
qordp1.SQL.add('Where id_m= '+inttostr(id_m));
qordp1.Open;
while not qordp1.Eof do begin
cbox1.Items.Add(qordp1nomer.Value);

qordp1.Next;
end;

qordp1.Close;

end;

procedure TForm3.Button35Click(Sender: TObject);
var i:integer;
begin
for i:=1 to sgord2.ColCount do
begin
if sgord2.Cells[i, 2] = cbox1.Text then begin
sgord2.Cells[i,24]:='0';
sgord2.Cells[i,28]:='Отказ';
end; end;end;

procedure TForm3.cbox1Select(Sender: TObject);
begin
filter:='';
filter:='(CAST("order".nomer AS nomer) between cbox1.Items.Add(qordp1nomer.Value)' ;
end;