Validar Usuario

[Kenlyr]

Despues de que lo corro step by step y llega al DMcasos.qryUsuario.Open;
el error que me da es de insufficient Memory for this operation

El codigo completo de ese evento onclick:

Código Delphi [-]
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;

[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

[[Lepe]]

Si la SQL la tienes puesta en el inspector de objetos, elimina esta línea, que desde luego no sé que hace:

Código Delphi [-]
DMcasos.qryUsuario.SQL.Text;

Saludos

[Kenlyr]

Gracias Lepe, Roman.

Algo que me pasa ahora despues que compilo e introduzco los datos que si son correctos la aplicacion asume como incorrectos y me da el mensaje de password o usuario incorrectos pero si son correctos. Que podria ser que asume algo mal cuando si es introducido bien?