Copiar TADOQuery a TDataSource

[kasper]

Buenas tardes,
estoy intentando copiar un ADOQuery a un DataSource para después poder liberar el AdoQuery sin perder el contenido en el datasource pero no sé como hacerlo. Si hago lo siguiente

DataSource.DataSet:=ADOQuery1;

se copia correctamente, pero cuando después hago:

FreeAndNil(ADOQuery1);

DataSource.DateSet se queda vacio...

¿Alguien sabe como se puede hacer esto?
Muchas gracias