ayuda con datamodule en delphi

[microbiano]

hola tengo el siguiente problema a ver si alguien me puede ayudar.

1. la base de datos que utilizo es sql server 200
2.- version de delphi 7

3.- tengo un data module con el nombre de Dconexion y en el un objeto adoConection con el nombre conexion hasta ahi ningun problema.

4.- tengo un form con 2 Tedit uno para pedir el nombre y otro para la contraseña de usuario y un boton con el nombre aceptar el cual al precionarlo ejecuta el siguiente codifo:

Código Delphi [-]
begin
dconexion.conexion.Close;
dconexion.conexion.ConnectionString:=
 'Provider=MSDASQL.1;'+
 'Persist Security Info=True;' +
 'User ID=' + fr_menuu.txtusuario.Text + ';' +
 'Password='+ fr_menuu.txtcontrasena.Text + ';' +
 'Data Source=' + fr_menuu.txtBD.Text;(aqui va el nombre del odbc SAPA)
try
    dconexion.conexion.Connected:=true;
    MessageDlg('Se ha conectado correctamente a la BD: ' + chr(13) +
        txtBD.Text,mtinformation, [mbok], 0);
         fr_usuarioss.ShowModal;
        exit;
except
    raise;
end;

aqui valida el usuario y no hay ningun problema si los datos de usuario son correctos inicia la sesion y si no manda el error.

5.- en otro formulario tengo 2 Tedit para prueba uno pide el numero de contrato y otro el nombre, aparte tengo un Tstoreproc el cual en el nombre de base le pongo el OBDC con el nombre SAPA y configuro los paramentros de entrada para dicho procedimiento, en el boton de aceptar para que ejecute el procedimiento esta este codigo:

Código Delphi [-]
begin
  try
    frcontrato.sp_nvocontrato.Params[0].asstring:=frcontrato.txtcontrato.Text;      frcontrato.sp_nvocontrato.Params[1].asstring:=frcontrato.txtnombre.Text;
    frcontrato.sp_nvocontrato.ExecProc;
  except
    {MessageDlg('Se produjo un error al registrar el nuevo contrato' + chr(13) +
     txtBD.Text,mtinformation, [mbok], 0);}
     Application.messagebox('Contraseña','Información',mb_iconerror);
  end;
end;

aqui esta el verdadero problema ya que cuando preciono el boton de aceptar me manda este mensaje de error: ERROR DE INICIO DE SESION DEL USUARIO(NULL) MOTIVO: NO ESTA ASOCIADO A UNA CONEXION DE SQL SERVER DE CONFIANZA.

LA PREGUNTA ES: como puedo usar la sesion que ya inicie en el data module al pasarle la conexion en todos los formularios de mi proyecto.

por su ayuda de antemano muchas gracias