Ingreso al form mediante contraseña o sin ella

[Pablo Carlos]

Hola gente...
No se cómo titular este hilo por lo que pido disculpas si está mal.
Tengo el siguiente problema y no logro ver la "luz". En un form tengo un Tedit el cual uso para ingresar una contraseña y al presionar enter el siguiente código

Código Delphi [-]
    procedure TfrmClaveAsistencia.eContraseniaCorreoKeyPress(Sender: TObject;
      var Key: Char);
    begin
     if (Key = #13) then
      begin
       dmQuerys.qAbrirCorreo.Close;
       dmQuerys.qAbrirCorreo.Open;
       if dmQuerys.qAbrirCorreo.FieldByName('DAT_Apellido').AsString = ''  then 
        begin
         ShowMessage('Su contraseña no es válida, vuelva a intentarlo...');
         eContraseniaCorreo.Clear;
        end
       else
        begin
         frmCorreoInterno := TfrmCorreoInterno.Create(Application);
         try
          frmCorreoInterno.ShowModal
         finally
          frmCorreoInterno.Free;
          Close;
         end;
        end;
      end;
    end;

en el beforeopen del Query el siguiente código

Código Delphi [-]
      qAbrirCorreo.ParamByName('pDocumento').AsInteger :=
       StrToInt(frmClaveAsistencia.eContraseniaCorreo.Text);

la idea es que si ingresa la contraseña y está registrado como usuario pueda acceder al form del correo (esto si encuentra los datos). El problema es que si no ingreso contraseña y después de los show ingresa igual!
Podrian revisar el código y verificar el error ya que no logro encontrarlo...
Muchas gracias