rls, jpeg, ExtCtrls;=class (TForm): TEdit ;: TButton ;: TButton ;: TImage; BOkClick (Sender: TObject); BCancelClick (Sender: TObject);
{Private declarations}
{Public declarations} ;: TFPassword ;, UEnter;
{$ R * .dfm} TFPassword.BOkClick (Sender: TObject); EPassword.Text= admin then.Show ;;. Close; (Self.Handle, Неправильний пароль , Помилка , MB_OK) ;; TFPassword.BCancelClick (Sender: TObject) ;. Show ;;;