Crear Un Login

[Belen12]

hola buenas noches necesito un poco de ayuda y orietacion en este tema.Como dice el titulo tengo que crear un login.
El login ya lo cree utilizando el siguiente codigo:

Código Delphi [-]
begin
try
  fModulo.conexion.User := trim(eUsuario.Text);
  fModulo.conexion.Password := trim(eContrasenia.Text);
  fModulo.conexion.Connected := True ;
  fPrincipal.Caption := fprincipal.Caption + 'Usuario Conectado: ' +eUsuario.Text;
  except on Exception do
  begin
   Application.MessageBox('No se pudo establecer la conexion. Revise usuario o contraseña','Drugstore',MB_ICONERROR+MB_OK) ;
fLogin.ModalResult :=   mrNone;
  fLogin.eUsuario.SetFocus;
  end;
  end;
end;

el tema es que solo entra utilizando la contraseña root.Necesito ahora que se conecte a la tabla Cuentas de mi base de datos por el cual utilizo un tzTable asociado a esta tabla y su datasoucer. El tema es que no se como asociarlo e probado varios códigos que vi en foros pero no tuve resultados.
Desde ya muchas gracias