procedure TBusquedas.grBusquedaDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (sqBusqueda.RecNo mod 2) = 0 then
If (gdFocused in State) then grBusqueda.canvas.brush.color := clNavy
else grBusqueda.canvas.brush.color := clSilver;
grBusqueda.DefaultDrawColumnCell(rect,DataCol,Column,State)
end;