Pintar DBGrid

[ramonibk]

Hola a todos.

Como eterno novato me ha surgido un problema que no encuero como solucionar.

Tengo un DBGrid el cual cargo con una tabla de Access a través de ADO.

Para hacer mas fácil la interpretación de los datos pinto las lineas una si otra no en gris, y la celda seleccionada la pinto en azul.
todo esto lo hago a través de DrawColumnCell del DBGrid.
usando el codigo.

Código Delphi [-]
rocedure TfrmWebpost.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  grid : TDBGrid;
  row : integer;
begin
 if length(Column.Field.AsString) > Column.Field.Tag then
  begin
    Column.Field.Tag := length(Column.Field.AsString);
    Column.Field.DisplayWidth := Column.Field.Tag + 1;
  end;
  grid := sender as TDBGrid;
  row := grid.DataSource.DataSet.RecNo;
   if Odd(row) then
    grid.Canvas.Brush.Color := clSilver
   else
    grid.Canvas.Brush.Color := clwhite;
    grid.DefaultDrawColumnCell(Rect, DataCol, Column, State) ;

  if (gdSelected in State) then
   begin
    Grid.Canvas.Brush.Color := clAqua;
    Grid.SelectedRows.CurrentRowSelected := true;
   end;

  Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

El problema surge que no siempre al iniciar el select lo posiciona en la primera celda. sino que lo coloca en la primera columna pero en una fila intermedia. cuando pulso en alguna celda no me lo indica correctamente, lo que hace es moverse dentro de la fina en que se encuentra.

Pero lo mas curioso es que cuando selecciono una celda que se encuentra por debajo de donde esta la marca de selección. ya empieza realizar todo correctamente.

Alguna idea o sugerencia???????

Un saludo y gracias de antemano.