Логин/Пароль (сравнение из БД (bde)

Var l,p:string[20];
begin
l:=DBLookupComboBox1.Text;
p:=Edit1.Text;
 
Query1.close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT Login, Psw."Password"');
Query1.SQL.Add('FROM Psw');
Query1.SQL.Add('WHERE ((Login='''+l+''') AND (Password='''+p+'''))');
//Query1.SQL.Add('WHERE Login='''+DBLookupComboBox1.Text+''' AND Password='''+Edit1.Text+''' ');        // òàê ñ êàâû÷êàìè
Query1.Open;
 
if Query1.RecordCount<>0 then
begin
if Query1.FieldByName('Login').AsString = DBLookupComboBox1.Text then
begin
   Form5.Show;
   Form5.Enabled:=true;
   Form6.Visible:=false;
end;
end
else
begin
showmessage('Íåïðàâèëüíî ââåäåíî èìÿ ïîëüçîâàòåëÿ èëè ïàðîëü');
Edit1.Text:='';
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var login: string;
    i: integer;
    Dostup: boolean;
begin
If (Логин.Text<>'') and (Пароль.Text<>'') then
 begin
 ADOQuery1.Active:=false;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('SELECT * FROM Пользователи WHERE Логин =:log');
 ADOQuery1.Active:=true;
 ADOQuery1.Active:=false;
 ADOQuery1.Parameters.ParamByName('log').Value:=Логин.Text;
 ADOQuery1.Active:=true;
   If ADOQuery1.RecordCount<>0 then
     begin
      If ADOQuery1.FieldByName('Пароль').AsString=Пароль.Text then
        begin
         login:=LowerCase(Логин.Text);
         form1.Show;
        end
      else MessageDlg('Неверный пароль!',mtError, [mbOK],0);
     end else
       MessageDlg('Пользователь не найден', mtConfirmation, [mbOK,mbCancel],0);
 
 end
    else MessageDlg('Введите данные!', mtInformation, [mbOK],0);
end;