ocr: Delphi - Chkpword File Edit Search View Run Debug Options Tools Help = DE ht A abl OK X O B D a Da Standard/Adtional) Graphics, Dialogs XFile Database ADB Lists VBX/ Objecti Inspector DLLFORM.PAS PasswordForm * t ActiveControl Edit1 t function setrasswora(Passwora: PChar): : Inted +Borderlcons biSystemMenu.b var BorderStyle bsSizeable Passwordrorm: TPasswordform; Caption Verify strPassuord: String : ClientHeight 109 begin ClientWidth 238 Verify V Result := 0; Color clSilver Passwordrorm : TPassworaform.Create (Appl CH3D True Cursor crDefault Enter password. Test string passed 1 Enabled True st ...
