sgcBiometrics Uwierzytelniaj osobę, a nie hasło.

uses
  sgcBiometrics;

FingerPrint.OnEnrollCommit := DoEnrollCommit;

// pass the finger you are recording
FingerPrint.EnrollBiometric(
  WINBIO_ANSI_381_POS_RH_INDEX_FINGER);

procedure TForm1.DoEnrollCommit(Sender: TObject;
  const aIdentity: WINBIO_IDENTITY;
  aIsNewTemplate: Boolean);
begin
  if aIsNewTemplate then
    DoLog('New template committed.')
  else
    DoLog('Template updated.');
end;

uses
  sgcBiometrics, sgcBiometrics_WinBio_Client,
  sgcBiometrics_WinBio_Client_Facial;

procedure TFRMFacial.btnFacialRecognizeClick(Sender: TObject);
begin
  // Facial is a TsgcWinBioFacial dropped on the form
  if not Facial.SessionIsOpen then
  begin
    if Facial.InitializeSensors(10000) then
      if Facial.FacialRecognize then
        DoLog('#Recognized');
  end
  else if Facial.FacialRecognize then
    DoLog('#Recognized');
end;

procedure TFRMFacial.FacialError(Sender: TObject;
  const aError: string; const aCode: Integer);
begin
  DoLog('Error: ' + aError + ' [' + IntToStr(aCode) + ']');
end;