Foros Club Delphi - Problema con DBGRiD y campos en Tiempo de ejecución

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:

Código:

 

 

        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