Логин и пароль в БД в Delphi

procedure TForm2.Button1Click(Sender: TObject);
  begin
   AdoQuery1.SQL.Text:='SELECT DISTINCT Avt FROM uch  WHERE ( login= :login) and (Psw = :Psw)';
   AdoQuery1.Parameters.ParamByName('login').Value := Edit1.Text;
   AdoQuery1.Parameters.ParamByName('Psw').Value := Edit2.Text;
   AdoQuery1.Open;
  { if ADOQuery1.RecordCount > 0 then
  begin
    if ADOQuery1.FieldValues['']='' then
      showmessage('Вход в систему учителя выполнен.')
    else
      showmessage('Вход в систему ученика выполнен..');
 
   Form2.Hide;
   Form1.Show;
  end else
  begin
    showmessage('Введен неверный логин или пароль');
 //DBLookupComboBox1.Clear;
    Edit1.Clear; }
   end; end;
   end.

...
  if not ADOQuery1.Eof then begin
    if ADOQuery1.FieldValues['Avt'] = 'Учитель' then
      showmessage('Вход в систему учителя выполнен.')
    else
      showmessage('Вход в систему ученика выполнен..');
    Form2.Hide;
    Form1.Show;
  end else begin
    showmessage('Введен неверный логин или пароль');
    DBLookupComboBox1.KeyValue := NULL;
    Edit1.Clear; 
  end; 
...