Ayuda con delphi 7en windows 7

[jacb1976]

Estoy desarrollando una aplicacion para explotar una base de datos, estoy empezando con frame para logearse y entrar a la primera pantalla donde mostrare el menu, deje de usar delphi por algun tiempo y regreso otra vez a programar, mi problema es el siguiente una vez que valido que el usuario este dado de alta muestro un frame, mi problema es que al mostrar el segundo frame parece como si se ciclara, es decir se traba la pantalla en ejecucion, no responde el frame como que se queda congelado, el codigo que tengo es el siguiente,

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    Modulo1.passwords.First;
    While not Modulo1.passwords.EOF Do
    begin
        if (modulo1.passwords.FieldByName('usuario').asstring =edit1.Text) and (modulo1.passwords.FieldByName('pass').asstring =MaskEdit1.Text )then
            Begin
               Fmenu.showmodal;
            end
        else
            begin
              modulo1.passwords.Next;
            end;
     end;
     if modulo1.passwords.Eof then
      begin
          Showmessage('La contraseña no es la correcta, intente de nuevo por Favor');
          edit1.Text:='';
          MaskEdit1.Text:='';
          edit1.SetFocus;
          modulo1.passwords.Next;
      end;
end;

Por Favor diganme que estoy haciendo mal, por que por mas que le busco no se que hacer. Gracias