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

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;

s.SQL.Clear

s.SQL.Text := ...

q.SQL.Add();

q.SQL.Clear;

q.SQL.Open

q.SQL.Add('SELECT * FROM NEW_TABLE');
 
   s.SQL.Text := Format('update NEW_TABLE set FIELDNAME = %s where ID=' ,[gList.Columns[0].FieldName, ID]);

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

procedure TBDForm.gListColumnMoved(Sender: TObject; FromIndex,
  ToIndex: Integer);
begin
   q.SQL.Text := 'SELECT * FROM NEW_TABLE';
   q.Open;
   ID := q.FieldValues['Имя_Поля'];  // тут должен стоять курсор, чтобы получить идентификатор этого поля сам переделай
 
   s.SQL.Text := 'update NEW_TABLE set FIELDNAME = ' + 'Откуда_берешь_это_значение' + ' where ID = ' + IntToStr(ID);
   s.ExecQuery;
end;

ShowMessage('update NEW_TABLE set FIELDNAME = ' + gList.Columns[ToIndex].FieldName + ' where ID = ' + IntToStr(ToIndex));

QuoteStr(gList.Columns[ToIndex].FieldName)

  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from MyTable where MyField = :MyValue');
    Parameters.ParamByName('MyValue').Value:='Тратата';
    Active:=True;
  end;

 for i := 0 to 4 do begin
 
    s.SQL.Text := 'update NEW_TABLE set FIELDNAME = ' + gList.Columns[i].FieldName + ' where ID = ' + IntToStr(i);
    s.ExecQuery;
 
    s.SQL.Text := 'update NEW_TABLE set WIDTH = ' + IntToStr(gList.Columns[i].Width) + ' where ID = ' + IntToStr(i);
    s.ExecQuery;
 
    s.SQL.Text := 'update NEW_TABLE set CAPTION = ' + gList.Columns[i].Title.Caption + ' where ID = ' + IntToStr(i);
    s.ExecQuery;
 
  end;

q.SQL.Text := 'SELECT * FROM NEW_TABLE';
    q.Open;