Редактирование записи в бд

procedure TBDForm.gListColumnMoved(Sender: TObject; FromIndex,
  ToIndex: Integer);
begin
   ID := q.Fields[0].AsInteger;
   tW.StartTransaction;
   s.SQL.Clear;
 
   q.SQL.Add('SELECT * FROM NEW_TABLE');
 
   s.SQL.Text := Format('update NEW_TABLE set FIELDNAME = %s where ID=' ,[gList.Columns[0].FieldName, ID]);
   s.ExecQuery;
 
 
   tW.Commit;
 
 
end;

QuotedStr();

 for i  := 0 to gList.Columns.Count - 1 do begin
 
    q.SQL.Text := Format('select * from new_table where id=%d', [i]);
    q.Open;
 
   gList.Columns[i].Width := q.FieldByName('WIDTH').AsInteger;
 
 
  end;

var
  PathFileDBGrid: string;
.....
procedure TfrmMain.FormCreate(Sender: TObject);
begin
// папка размещения файлов настроек Грида, ...
  PathFileDBGrid := (ExtractFilePath(Application.ExeName) + DBGrid1.Name + '.cw');
 
// загружаем настройки ширины колонок Грида из файла
  if not FileExists(PathFileDBGrid) then Exit;
  DBGrid1.Columns.LoadFromFile(PathFileDBGrid);
end;
 
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// сохраняем настройки ширины колонок Грида в файл
  try
    DBGrid1.Columns.SaveToFile(PathFileDBGrid);
  except
    Application.MessageBox(PChar('Ошибка записи файла настроек ' + PathFileDBGrid), 'Ошибка!', MB_OK+MB_ICONERROR);
  end;
end;

[DELPHI]procedure TBDForm.Button1Click(Sender: TObject);
var i : Integer;
begin
 
 
 
      for i := 0 to gList.Columns.Count - 1 do begin
 
        q.SQL.Text := Format('select * from NEW_TABLE where id=%d', [i]);
        q.Open;
 
        gList.Columns[i].Width := q.FieldByName('WIDTH').AsInteger;
        gList.Columns[i].FieldName := q.FieldByName('FIELDNAME').AsString;
        gList.Columns[i].Title.Caption := q.FieldByName('CAPTION').AsString;
 
     end;
 q.Free;
end;

q.SQL.Text := Format('select * from NEW_TABLE where id=%d', [i]);
q.Open;