[mensana]

Falta asignar el dataset al campo que se crea

Cadena := TStringField.Create(nil);
Cadena.DisplayLabel := 'Contratista';
Cadena.FieldKind := fkData;
Cadena.FieldName := 'Contratista';
Cadena.DataSet := <MiDataSet>;
Cadena.Size := 100;
Cadena.Lookup := false;
Cadena.Name := 'cdsContratistasContratista';

// Esto me parece que sobra
//cdsContratistas.Fields.Add(Cadena);