asignar valor a un datasource mediante código

[__cadetill]

para dejarla sin valor asignale nil
para asignarle un valor asignale el TDataSource corresponiente

// le quitamos el DataSource asociado
IBDataSet1.DataSource := nil;

// le asignamos el DataSource que queremos
IBDataSet1.DataSource := DataSource1;

Espero te sirva