Условие проверки закраски строк в DBGRID

[Rompler]

Всем доброго времени суток.
Подскажите пожалуйста как реализовать условие проверки закраски строк в DBGrid? Если все строки в DBGrid = Color(clLime) тогда ...

Процедура закраски есть

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if adoquery1.FieldByName('Информация о маршруте').AsString='' then
  begin
 	 DBGrid1.Canvas.Brush.Color := clYellow;
 	 DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
 end
 else
 DBGrid1.Canvas.Brush.Color := clLime;
 	 DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;

А с условием проверки не разобрался

[Аватар]

А цвет-то зачем проверять? Проверяй adoquery1.FieldByName('Информация о маршруте').AsString

[Rompler]

if Adoquery1.FieldByName('Информация о маршруте').AsString='' then begin
Showmessage('Данные не во всех полях');
end
else
Showmessage('Все поля забиты');

Таким образом? Условие проверит всю колонку?

[Аватар]

Колонку в цикле нужно по всем записям датасета

[Rompler]

Спасибо) Разобрался