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?

 
 
	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