[Kenlyr]

Alguien me puede dar una manito, pues esta pantallita de login que estoy haciendo se me esta como frizando cuando la corro no se que pueda ser pues no me da ningun tipo de error al compilar, les copio el codigo de lo que estoy haciendo.

Código Delphi [-]
unit CasosFMS;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;
type
  TFM_Casos = class(TForm)
    L_Usuario: TLabel;
    L_Password: TLabel;
    E_Usuario: TEdit;
    E_Password: TEdit;
    B_Aceptar: TButton;
    B_Cancelar: TButton;
    L_Ambiente: TLabel;
    ComboBox1: TComboBox;
    procedure B_CancelarClick(Sender: TObject);
    procedure B_AceptarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  FM_Casos: TFM_Casos;
implementation
uses DataModulo, UAcceso;
{$R *.dfm}
procedure TFM_Casos.B_CancelarClick(Sender: TObject);
begin
// Show a confirmation dialog
 if MessageDlg('Cancelar Programa.  Salir Ahora?',
    mtConfirmation, [mbYes], 0)
   = mrYes  then
    
    Close ;
 

end;

procedure TFM_Casos.B_AceptarClick(Sender: TObject);
begin
DMcasos.qryUsuario.Close;
DMcasos.qryUsuario.SQL.Text;
DMCasos.qryUsuario.parambyname('IDENT').AsString := E_Usuario.text;
DMcasos.qryUsuario.Open;

if not DMcasos.qryUsuario.IsEmpty then
begin
Fm_Acceso.Show;
end
else
begin
MessageDlg('Usuario o Contraseña Incorrecta, Intente nuevamente', mterror, [mbOk], 0);
E_Usuario.SetFocus;
end;

end;

Y el query hace una simple consulta que es esta:

Código SQL [-]
 
 SELECT * FROM tabla WHERE IDENT = :IDENT

No se la causa de que se quede como freezado