количество строк со значением в Edit из DBGrid

[Popcorn]

Здравствуйте, я программировала базу данных через библиотеку связи ADO связала аксесс и делфи, у меня возникла проблема, есть заполненная таблица где есть столбец Статус со значениями работает, выбыл и принят, мне нужно чтобы при нажатии на кнопку в эдит выводилось количество строк со значением работает из DBGrid. Код верный, но при запуске выводит ошибку, что не может найти поле Статус, я думаю что не изменила требующиеся свойства в DataSet, а какие нужно я не знаю.

Код: Выделить всё

procedure TForm2.Button5Click(Sender: TObject);
var
k, m, n, i, j: integer;
begin
k:=0;
with DBGrid1 do
begin
for j:=1 to m do
for i:=1 to n do
if i=2 then
begin
if (ADODataSet1.FieldByName('Статуc'). asString ='работает') then k:=k+1;
end;
end;
edit2.text:=inttostr(k);
end;