Zeoslib TZTables

[RebeccaGL]

La verdad creo que no me entienden o no me dejo entender, aca un demo de lo que deseo hacer pruebenlo y me dicen, pero falla, la grilla no queda con los datos exactos. El problema es que cuando me deslizo hacia abajo con el mouse los datos de la grilla se repiten con el registro anterior.

Código Delphi [-]
 
// Definicion Global desprotejer DBGrid
type
  TDBGrid = class(DBGrids.TDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  aRect : TRect;
begin
  // Init
  TDBGrid(Sender).Canvas.Font.Style := [];
  TDBGrid(Sender).Canvas.Font.Color := clWindowText;
  TDBGrid(Sender).Canvas.Brush.Color := clWindow;

  TDBGrid(Sender).Canvas.Brush.Color := $00EFD3C6;
  aRect := TDBGrid(Sender).CellRect(DataCol + 1, TDBGrid(Sender).Row);

  if (gdSelected in State) and
     (TDBGrid(Sender).Focused) then
  begin
    TDBGrid(Sender).Canvas.Font.Color := clWhite;
    TDBGrid(Sender).Canvas.Brush.Color := clHighlight;
  end;

  TDBGrid(Sender).DefaultDrawColumnCell(aRect, DataCol, Column, State);
end;