procedure lognpass_check_password(phrase_md5: string; password: string; succes_proc: TProc; fail_proc: TProc)