Как подсчитать подсвеченные строки в DBGrid-е?

[sandr4]

Доброго времени суток.Помогите пожалуйста решить задачку.По определенному условию закрашиваю строки в DBGridEh.Необходимо сосчитать эти строки и вывести в Label.Caption.
Делаю так:
//Окрашивание строк в зелёный цвет
procedure TmainForm.DBGridEh1DrawColumnCell(S ender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
dat:=StrToDate(Edit3.Text);
if MainForm.sopTable.FieldByName('data ').AsFloat<dat then
mainForm.DBGridEh1.Canvas.Brush.Col or:=clGreen;
mainForm.DBGridEh1.DefaultDrawColum nCell(Rect,DataCol,Column,State);
Label.Caption:=IntToStr(DBGridEh1.D ataSource.DataSet.RecordCount);
end;
Выводит общее к-во строк, а необходимо подкрашенные.Как это делается?

[evg_m]

greencount:=0;
MainForm.sopTable.first;
while not MainForm.sopTable.EOF do begin
  if MainForm.sopTable.FieldByName('data ').AsFloat<dat then greencount:=greencount+1;
  MainForm.sopTable.NEXT;
end;
Label.Caption:=inntostr(grenncount);
MainForm.sopTable.FIRST;

И делается сие не во время рисования (onDraw), а при открытии таблицы, и после ее изменения (и повторном считывании).

[sandr4]

Спасибо, позже попробую, сейчас собираюсь на работу...

[sandr4]

Все работает.Только при "0" показывает на одну запись больше.Ставлю "-1" и все ОК.Еще раз спасибо!!!