Авторизация на форме через бд

if (Length(Edit1.Text) = 0) or (Length(Edit2.Text) = 0) then
    ShowMessage('Имя пользователя или пароль не могут быть пустыми!') else
    if (Edit1.Text = DataModule3.ADOTable1.FieldByName('Login').AsString) and
       (Edit2.Text = DataModule3.ADOTable1.FieldByName('Password').AsString)
      //(DataModule3.ADOTable1.FieldByName('Admin').AsString = '1')
       then begin
         Form1.Show;
         Form2.Visible:=False;
       end
         {begin
         Form4.Show;
         Form2.Visible:=False;
         end;                  }
    else ShowMessage('Неверно введен пароль!');

var
prava: string;
begin
if (Edit1.Text <>'') and (Edit2.Text<>'') then begin
DataModule2.ADOQuery1.sql.text:='select Polzovatel,Password,Rights from Polzovateli where Polzovatel=:l and Password=:p';
DataModule2.ADOQuery1.parameters.parambyname('l').value:=Edit1.Text;
DataModule2.ADOQuery1.parameters.parambyname('p').value:=Edit2.Text;
DataModule2.ADOQuery1.active:=true;
if DataModule2.ADOQuery1.recordcount=1 then
begin
DataModule2.ADOQuery1.First;
Polzovatel:=DataModule2.ADOQuery1.Fields[0].asString;
password:=DataModule2.ADOQuery1.Fields[1].asString;
prava:=DataModule2.ADOQuery1.Fields[2].asString;
if prava='Оператор' then
begin
Form14.Hide;
Form1.TabSheet6.TabVisible:=false;
form1.Show;
end
else if prava='Администратор' then
Form14.Hide;
form1.Show;
end
else Showmessage('Не верный логин или пароль');
end else Showmessage('Не введены данные');

var
login,password,prava: string;
begin
if (Edit1.Text <>'') and (Edit2.Text<>'') then begin
DataModule3.ADOQuery1.sql.text:='select Login,Password,Admin from Users where Login=:l and Password=:p';
DataModule3.ADOQuery1.parameters.parambyname('l').value:=Edit1.Text;
DataModule3.ADOQuery1.parameters.parambyname('p').value:=Edit2.Text;
DataModule3.ADOQuery1.active:=true;
if DataModule3.ADOQuery1.recordcount=1 then
begin
DataModule3.ADOQuery1.First;
login:=DataModule3.ADOQuery1.Fields[0].asString;
password:=DataModule3.ADOQuery1.Fields[1].asString;
prava:=DataModule3.ADOQuery1.Fields[2].asString;
if prava='0' then
begin
Form2.Hide;
form4.Show;
end
else if prava='1' then
begin
Form2.Hide;
form1.Show;
end
else Showmessage('Не верный логин или пароль');
end else Showmessage('Не введены данные');
end;
end;

With DataModule2.ADOQuery1 do
begin
Active:=false;
SQL.Text:=('UPDATE Polzovateli SET Users.Password = :p WHERE Users.[IDuser]=:id');
parameters.parambyname('p').value:=Edit2.Text;
ExecSQL;
end;