Delphi - dbgrid saber el registro en donde estoy

buenas tardes aqui con una duda,
tengo un degrid, y quiero usar una funcion para pintar de registro por medio al grid, solo q necesito saber a la hora q estoy cargando la informacion el registro en el que estoy ya sea 1,2,3,4 etc etc y asi tomar todos los pares y pintarlos, esto es para mejor visualizacion del usuario.
Alguen sabe como puedo hacer para obtener el registro actual del dbgrid.

uso delphi 6.

Saludos muchas gracias

Hola amigo espero te pueda servir lo siguiente.
lo que yo hago es usar el evento "OnDrawColumnCell" del DbGrid y uso el siguiente codigo:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
function IdentificarNumerosPares(Valor:Integer):boolean;
begin
Case Valor of
2,4,6,8,10:Result:=True;
else
Result:=False;
end;
end;
begin
IF IdentificarNumerosPares(Table1.fieldbyname('ID').AsInteger) THEN
DBGrid1.Canvas.Brush.Color:=CLYELLOW;

DBGrid1.DefaultDrawColumnCell(RECT,DATACOL,COLUMN,STATE);
end;

espero te sirva