Problemas con las conexiones a datos

[Jesús Pena]

Lo que pretendo es precisamente eso hacerlo por código, lo intento con el código descrito a continuacion

dmClientes := nil; // datamodule
dmClientes := TdmClientes.Create(Self); // creación del datamodule
pDmConectado := dmClientes.fConectado; // si todo ha ido correcto o no
if not pDmConectado then
begin
	MessageDlg('Error de Conexión con la Base de Datos de Clientes',mtError,[mbOk],0);
	Close; // si no muestro mensaje y cierro el formulario
end;
if Not dsPrincipal.dataset.IsLinkedTo(dmClientes.IBTClientes) then
	dsPrincipal.DataSet := dmClientes.IBTClientes; // aquí es donde me dá el access violation (cuando pierde la conexión)

lo que ocurre es que al hacer la asignación del datasource (dsprincipa) da un access violation ¿que estoy haciendo mal?

Gracias por compartir la sabiduría