Re:

DBGrid1.Columns.Add;
DBGrid1.Columns[0].FieldName := ibpdtcdbar.AsString;
DBGrid1.Columns[0].Title.Caption := ´Barras´;
//******************************************************//

Esse código eu já tinha feito, mas detalhe: Não aparece os valores do campo que estou adicionando. Esse é o problema.