Delphi Open HomeForm after BiometryAuthentication

biometry_not_works_completely.pas

// not open HomeForm
procedure TMainForm.ListBox1ItemClick(const Sender: TCustomListBox;
  const Item: TListBoxItem);
  if BiometricAuth1.IsSupported then begin
      BiometricAuth1.Authenticate;
  end;
end;

procedure TMainForm.BiometricAuth1AuthenticateSuccess(Sender: TObject);
begin
  HomeForm.Show;
end;

// Unit.pas Global var BiometrySuccess := False;

// not open HomeForm
procedure TMainForm.ListBox1ItemClick(const Sender: TCustomListBox;
  const Item: TListBoxItem);
  if BiometricAuth1.IsSupported then begin
      // change BiometrySuccess to True
      BiometricAuth1.Authenticate;
      if BiometrySuccess then begin
        // Go to HomeForm fail
        HomeForm.Show;
      end;
  end;
end;

procedure TMainForm.BiometricAuth1AuthenticateSuccess(Sender: TObject);
begin
  BiometrySuccess := True;
  //ShowMessage('Fingerprint verified with success.');
end;