Авторизация через БД

procedure TFormLogin.btnLoginClick(Sender: TObject);
begin
if (Edit1.Text = '') or (Edit2.Text = '') then
 Application.MessageBox('Заполните поля', 'INFORMASI', mb_OK);
with Query1 do
 begin
   Close;
   SQL.Clear;
   SQL.Add('SELECT * FROM admin WHERE username ='+QuotedStr(Edit1.Text));
   Open;
 end;
 if Query1.RecordCount = 0 then
   Application.MessageBox('База пуста.', 'INFORMASI', mb_OK)
 else
   begin
     if Query1.FieldByName('password').AsString <> Edit2.Text then
       Application.MessageBox('Неправильный парол', mb_OK)
     else
           Hide;
           FormUtama.Show;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
if (Edit1.Text<>'') and (Edit2.Text<>'') then
 begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:= 'SELECT * '    +
                                    'WHERE username=' + QuotedStr(Edit1.Text);
  ADOQuery1.Active;
  ADOquery1.Open;
 
if ADOQuery1.RecordCount <> 0 then
    begin
 
     if ADOQuery1.FieldByName('password').AsString = LowerCase(Trim(Edit2.Text)) then
         begin
// определение полей
          gULogin:=     ADOQuery1.FieldByName('username').AsString;
          gUId:=        ADOQuery1.FieldByName('id').AsInteger;
          gULastVisit:= ADOQuery1.FieldByName('last_visited').AsDateTime;
          imagePath:=   ExtractFilePath(Application.ExeName) + ASSETS_FOLDER +'images\';
// вывод изображения
       if FileExists(imagePath + IMG_PATH_PREFICS + gULogin + gUImageExt) then
         try 
            Form2.iCurrentImage.Picture.LoadFromFile(imagePath + IMG_PATH_PREFICS + gULogin + gUImageExt);
         except 
            Form2.iCurrentImage.Picture:= Form2.iNoImageLoad.Picture;
         End
  else begin 
        Form2.iNoImage.Visible:= True;
        Form2.iCurrentImage.Picture:= Form2.iNoImage.Picture;
       end;
      end
         else  
            begin
            Label3.Visible:= True; 
            Label3.Caption:= ERROR_WRONG_PASSWORD; // не правильный пароль
            end;
     end
         else
            begin 
            Label3.Visible:= True;
            Label3.Caption:= ERROR_USER_NOT_FOUND; // нет такого юзера
            end;
     end else
            begin 
            Label3.Visible:= True; 
            Label3.Caption:= ERROR_FIELDS_IS_EMPTY; // не все поля заполнены
            end;
 except on E: Exception do
   begin  
    Application.MessageBox('Что-то пошло не так', 'Инфа %сотка%', MB_OK);
    exit;
   end;
          end;
   end;