Set TDBGrid1.DataSource = rst
    TDBGrid1.Columns( 0 ).Width =  510 
    TDBGrid1.Columns( 1 ).Width =  1515 
    TDBGrid1.Columns( 2 ).Width =  3675 
    TDBGrid1.Columns( 3 ).Width =  1170 
    TDBGrid1.Columns( 4 ).Width =  1305 
    TDBGrid1.Columns( 5 ).Width =  3795 
    TDBGrid1.Columns( 6 ).Width =  1410 
    TDBGrid1.Columns( 7 ).Width =  1080 
    With TDBGrid1.Columns( 4 ).ValueItems
        .Presentation = dbgComboBox
        .Translate = True
        .Clear
        
'        Item.Value = Null
'        Item.DisplayValue = "нет информации"
'        .Add Item
        
        Item.Value =  0 
        Item.DisplayValue = "принят"
        .Add Item
        
        Item.Value =  1 
        Item.DisplayValue = "не принят"
        .Add Item
        
    End With