Закрашивание ячеек в DBGRID

[jimmi З]

У меня такая проблема:

есть БД:

Смена 8 9 10 11
1 Вася Петя Саша Паша

есть поле смена и мне нужно чтобы при вводе в это поле 1, закрашивались записи (Вася Петя), при вводе 2 (Саша Паша)

Вот код у меня!!! только он закрашивает саму запись там где введена 1.

if Column.FieldName = 'Смена'  then
       if (Column.Field.AsString ='1') then
         begin
           DBGrid1.Canvas.Brush.Color := clSkyBlue;
           DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
         end;
        end;

Помогите пожалуйста доделать.

[Stilet]

var i:integer;
begin
...
i:=ТоКЧемуПривязанГрид.FieldByName('Смена').AsInteger;
if Column.FieldName = '8'  then

       if (Column.Field.AsString ='Вася')and(i=1) then
         begin
           DBGrid1.Canvas.Brush.Color := clSkyBlue;
           DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
         end;
        end;

       if (Column.Field.AsString ='Петя')and(i=1) then
         begin
           DBGrid1.Canvas.Brush.Color := clSkyBlue;
           DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
         end;
        end;
...

Это предположение т.к. Делфи нет под рукой.

[Sparkman]

DBGrid1.Canvas.FillRect(Rect);