[starcon]

Код:

procedure TForm1.DBGrideh1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumneh; State: TGridDrawState);
begin

   if Column.Field.Dataset.FieldByName('Sort').AsString = 'Киприч' then
     if (gdFocused in State) then
       DBGrideh1.Canvas.Brush.Color := clSkyBlue
     else

       DBGrideh1.Canvas.Brush.Color := clGreen;
       if Column.Field.Dataset.FieldByName('Sort').AsString = 'Шпалы' then
     if (gdFocused in State) then
       DBGrideh1.Canvas.Brush.Color := clSkyBlue
     else
       DBGrideh1.Canvas.Brush.Color := clAqua;

       if Column.Field.Dataset.FieldByName('Sort').AsString = '' then
     if (gdFocused in State) then
       DBGrideh1.Canvas.Brush.Color := clSkyBlue
     else
       DBGrideh1.Canvas.Brush.Color := clRed;


DBGrideh1.DefaultDrawColumnCell(Rect, DataCol, Column, State)

end;

Что нужно добавить?