form2.adoquery1.Parameters.ParamByName('usuario').Value := dbedit1.Text; form2.adoquery1.Parameters.ParamByName('clave').Value := dbedit2.Text; form2.adoquery1.Open; if form2.adoquery1.RecordCount <> 0 then form1.showmodal else showmessage ('Usuario O PassWord Invalido');