DBGrid z kolorowa skladnia ale problem przy wyszukiwaniu

Witam

Dzisiaj napotkalem kolejny problem. Juz od dwóch godzin sobie nie moge z tym poradzici i co najgorsze wyczerpaly mi sie juz wszytskie pomysly a w google nie moge znaleŹĆ odpowiedzi. Mam nastepujacy problem: uzywam DBGrid i Table. Zrobilem kolorowanie nieparzystych rzędów uzywajac kodu:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if not((gdFocused in State) or (gdSelected in State)) then
  if DataSource1.DataSet.RecNo mod 2 = 0 then
    DBGrid1.Canvas.Brush.Color:=cl3Dlight
  else
    DBGrid1.Canvas.Brush.Color:=clwhite;

  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

Wszystko ladnie dziala tylko w momencie jak robie sortowanie poprzez:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
if radioButton8.Checked then
 begin
  Accept := Table1.FieldByName('Nr unikatowy').AsString = edit1.text;
 end;
end;

to moj ladnie pomalowany DBGrid staje sie chaotycznie pomalowanym. Np. pierwsza kolumna ma kolor cl3Dlight, druga kolor bialy, trzecia kolor bialy a czwarta kolor cl3Dlight. Ma ktos pomysl jak albo zrobic zeby wszystko mialo kolor bialy albo zeby bylo ladnie pokolorowane tak jak przy tworzeniu tabeli z wykorzystaniem tego pierwszego kodu. Z gory dziekuje za odpowiedz.

Pozdrawiam

P.S mam nadzieje ze nie pokrecilem bardzo :P

Zamiast Table zastosuj Query i użyj klauzuli "select * from twoja_tabela order by EditFiltr.Text"

Pozdrawiam
Sebastian Tomczyk
http://www.stelektronik.pl/