[starcon]

Есть код, который читает выделенную группу строк в столбце 3 из таблицы
DBGrid1.

Код:

procedure TForm1.N24Click(Sender: TObject);
var
 U:Integer;
begin
   form1.AdoQuery1.First;
     for U := 0 to form1.DBGrid1.SelectedRows.Count-1 do
       begin
form1.AdoQuery1.Bookmark:=form1.DBGrid1.SelectedRows[u];
form1.AdoQuery1Fields[3].AsString;
//showmessage(AdoQuery1.Fields[3].AsString);
       end;
        end;

Помогите прикрутить сюда функцию изменения данных в ячейке.
То есть, выделяю группу строк в третьем столбце в котором разные названия (Начато , В процессе , Сделано) и меняю на 'Отпущено'.
Получается после процедуры все выделенные строки имеют признак
'Отпущено'.

[Страдалецъ]

Код:

 for i := 0 to DBGrid1.SelectedRows.Count - 1
 do begin
    DBGrid1.DataSource.DataSet.Bookmark := DBGrid1.SelectedRows[i];
    DBGrid1.DataSource.DataSet.Edit;
    DBGrid1.DataSource.DataSet.Fields[3].AsString := 'Отпущено';
    DBGrid1.DataSource.DataSet.Post;
    end;