Foros Club Delphi - Conectarse en ADO a través de un DLL

Salu2 nuevamente amigos foristas.

Estoy trabajando con ADO para conectarme a una BD en Access.
Uso un DataModule, donde tengo un ADO Connection y una Query.
En mi sistema tengo una DLL con varias funciones, como validar RUT(Chile), validar fecha, etc.
Tengo varios formularios en los cuales debo llenar algunos combobox's y memo's con datos de la BD. Entonces para no repetir esas rutinas de llenado de datos, quiero crear una función en mi DLL para esto.
Tengo creada la función para llenar los combobox's pero me arroja un error de violación de memoria.
Aqui les dejo el codigo de la función.

Código:

Function Rellena( Combo: TComboBox; Buscar: String; Tabla: String ): String;

begin

//   Try

      ShowMessage('1');

      DM.Query.Close;

      ShowMessage('2');

      DM.Query.SQL.Clear;

         DM.Query.SQL.Add( 'Select ' + Buscar + ' From ' + Tabla + ' Where 1 = 1 Order By ' + Buscar );

      DM.Query.Open;

      While Not DM.Query.Eof Do

      Begin

         Combo.Items.Add( DM.Query.FieldByName( Buscar ).AsString );

         DM.Query.Next;

      End;

{   Except

      Application.MessageBox( '¡Error en el Procedimiento Llenar ComboBox!, Contacte a su Proveedor de Servicio', 'Error', Mb_Ok + Mb_IconError );

   End;}

End;

Pero me da un error después de mostrar el '1' como resultado del ShowMessage. Y no sé a que se puede deber este error.

Por si acaso, tengo incluido en el uses de la DLL, la unit Data_Module.

Necesito de su ayuda amigos.

Salu2 desde Chile