Problema con DBGRiD y campos en Tiempo de ejecución

[EITB]

Tengo este codigo pero por alguna extraña razon me desaparece los datos al querer insertar una nueva columna y enlazarla a un nuevo campo , alguna idea?:confused:



SQLClientDataSet1.close;
campo := TStringField.Create(SQLClientDataSet1);
campo.Name := 'Edgar1';
campo.FieldKind := fkData;
campo.FieldName := 'CCO_CLAVECOND';
SQLClientDataSet1.Fields.Add(campo);
SQLClientDataSet1.CommandText := 'SelectATR_DESEMPCOND,CCO_CLAVECOND,ATR_IDRUTA' +
' from A_TURNO'+
' where ATR_IDRUTA = 1';
DBGrid1.Columns.Add;
DBGrid1.Columns.Items[2].Title.caption := 'Prueba';
DBGrid1.Columns.Items[2].FieldName := 'Edgar1';
SQLClientDataSet1.open;




De antemano gracias por su ayuda