1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.ColorGrid(dbgIn: TDBGrid; Table1: TTable; const Rect: TRect;
  DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var  
  iValue: LongInt; 
begin
  if (DataCol > 0) then
  begin 
    iValue := Table1.FieldByName('Firma').AsInteger;
    case iValue of 
      1: dbgIn.Canvas.Brush.Color := clAqua;
      2: dbgIn.Canvas.Brush.Color := clLime; 
      3: dbgIn.Canvas.Brush.Color := clYellow; 
      4: dbgIn.Canvas.Brush.Color := clRed; 
    end; 
    dbgIn.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end; 
end;                    

1:

ColorGrid(DBGrid1, Table1, Rect, DataCol, Column, State);