[WMaxaW]

Пыталась как-то так(знаю что неверно и глупо)

Код:

datamodule2.ADOQRasisChas.First;
for i:=0 to       datamodule2.ADOQRasisChas.RecordCount-1 do
 begin
 if datamodule2.ADOQRasisChas.FieldByName('Вид_дня').AsString='Выходной' then
  begin
  DBCheckBox2.Enabled:=false;
  showmessage('Врач в этот день не работает');
  end
  else  DBCheckBox2.Enabled:=true;
  datamodule2.ADOQRasisChas.Next;
 end;

Понимаю что надо привязываться к номеру записи но не знаю как осуществить... и на какую процедуру все пасадить чтоб работало намано