Изменение данных в ячейке DBGrid с использованием DataSource

var
   Dirrectory,Disk:string;
   Drive:Char;
begin
  if ListBox1.Items.Count=0 then
  begin
  ProcessPath(Edit2.Text,Drive,Dirrectory,Disk);
  Edit6.Text:=Copy(Dirrectory,13,30);
  end;
  if not Table1.Locate('IP-адрес',Edit6.Text,[]) then
  ShowMessage('Запись не найдена!')
  else
     label6.Caption:='Номер текущей записи:'+inttostr(TStringGridX(dbGrid1).Row);
 
end;

label6.Caption:='Номер текущей записи:'+inttostr(TStringGridX(dbGrid1).Row);
     k:=TStringGridX(dbGrid1).Row;
     if (DBGrid1.Columns[k].FieldName='Cостояние') then
     begin
       with DBGrid1.Canvas do begin
            Brush.Color:=clWhite;
            FillRect(Rect);
     if (Table1.FieldByName('Cостояние').Value=1) then
         begin
         Font.Color:=clRed;
         TextOut(Rect.Right-2-
         DBGrid1.Canvas.TextWidth('Не работает'),
         Rect.Top+2,'Не работает');
         end
     else
         begin
         TextOut(Rect.Right-2-
         DBGrid1.Canvas.TextWidth('Работает'),
         Rect.Top+2,'Работает');
         end;
     end;
  end;

if Table1.Locate('IP-адрес',Edit6.Text,[]) then
begin
  Table1.Edit;
  Table1.FieldByName('MyFieldName').Value := новое значение..
  Table1.Post;
end

procedure TForm1.Button5Click(Sender: TObject);
var
   Dirrectory,Disk:string;
   Drive:Char;
begin
  Table1.First;
    While not Table1.Eof do
      begin
        Table1.Edit;
        Table1.FieldByName('Состояние').Value:='Работает';
        Table1.Next;
      end;
begin
  if ListBox1.Items.Count<>0 then
  else
      begin
    ProcessPath(Edit2.Text,Drive,Dirrectory,Disk);
    Edit6.Text:=Copy(Dirrectory,13,30);
    if not Table1.Locate('IP-адрес',Edit6.Text,[]) then
      ShowMessage('Запись не найдена!')
       else
      Table1.Edit;
      Table1.FieldByName('Состояние').Value:='Не работает';
      Table1.Post;
      end;
end;
end;