procedure ShowVals(ID:string);
begin
  FormAddField.GridValues.ClearRows;
  StdMainForm.ADOQuery.Close;
    StdMainForm.ADOQuery.Sql.Clear;
    StdMainForm.ADOQuery.SQL.Text:='Select * from ListValues where List_id='+QuotedStr(ID);
 StdMainForm.ADOQuery.Open;
  with StdMainForm.DataSource.DataSet do begin
    //Добавляем значения в таблицу
    FormAddField.GridValues.BeginUpdate;
    FormAddField.GridValues.AddRow(RecordCount);
    while not Eof do begin
      FormAddField.GridValues.Cell[0, RecNo-1].AsString:=FieldByName('Val_ID').AsString;
     FormAddField.GridValues.Cell[1, RecNo-1].AsBoolean:=false; //По умолчанию отмечены все значения!!!
      FormAddField.GridValues.Cell[2, RecNo-1].AsString:=FieldByName('Value').AsString;
       FormAddField.GridValues.Cell[3, RecNo-1].AsString:=FieldByName('Code').AsString;
      FormAddField.GridValues.Cell[4, RecNo-1].AsString:=FieldByName('Description').AsString;
      Next;
    end;
    FormAddField.GridValues.EndUpdate;
  end;
end;

procedure TFormAddField.cmbEnumerationPropertiesChange(Sender:TObject);
var
  ID:string;
begin
  if (cmbEnumeration.Text='')or(chkNominalRow.Checked and(grpValuesType.ItemIndex=1)) then exit;
  GridValues.ClearRows;
  ID:=MasID[cmbEnumeration.ItemIndex];
  ShowVals(ID);
end;