Ну, Вам уже описали примерную схему. Еще раз опишу отдельно

1. При первом запуске сохраняете прочитанное значение в каком-либо файле.
1.1. Если нет файла или в файле нет значения - первый запуск - регистрация. Запись значения в файл
1.2. Если есть значение в файле - не первый запуск и надо сравнить прочитанное значение с сохраненным значением.
1.2.1. Сохраненное в файле значение равно прочитанному - все в порядке, можно работать
1.2.2. Сохраненное в файле значение отличается от прочитанного - приложение скопировано. Запрет запуска или запрос на регистрацию

Поскольку речь идет о FoxPro, то логичным решением является сохранение этого значения в файле DBF. Но можно и обычный TXT для этого использовать.

Правда, Вам также уже сказали, что не стоит оно того. Кончится это тем, что Вы сами же все это отключите. Впрочем, попробуйте...

Вопрос не в выбранном алгоритме (он то как раз рабочий), а в самой идее пароля/логина. Это для коммерческих организаций вопрос денег. А у Вас-то в чем вопрос? Тоже в деньгах?

Если говорить о конкретной реализации, то

1. WMI может быть отключен администратором или пользователем.
2. Запрошенный реквизит может быт недоступен для чтения
3. Крайне не разумно для идентификации использовать некие внешние (по отношению к FoxPro) библиотеки. Просто очень часто, что именно будет возвращено зависит от используемого для определения этой информации приложения. А если изменится версия приложения, может измениться и возвращаемое значение
4. Слабое место любого приложения, работающего с файлами - это сами файлы. Они могут быть повреждены или заблокированы сторонним приложением. Например, очень часто такая блокировка возникает как следствие работы антивируса. Касперский очень часто такое делает

Другими словами, даже если Вы работаете только с добросовестными пользователями, существует масса вариантов, когда по не зависящим от Вас, пользователя или Вашего приложения причинам, сохраненная информация о факте регистрации будет повреждена, станет не достоверна или недоступна. В этом случае Вас просто замучают звонками, о том, что программа требует регистрацию

Если Ваша цель - это сделать некие настройки при первичной регистрации приложения, то сделайте такой пункт меню в Вашем приложении (или отдельный EXE для первичной настройки). Пусть пользователь после копирования (или после повреждения настроечных файлов) сам запустит этот пункт меню и выполнит необходимые настройки

Строго говоря, у приложения в любом случае должен быть предусмотрен режим инсталляции или повторной инсталляции если произошел сбой. Не должен клиент зависеть от разработчика в части первичной настройки приложения. Как ни странно, это в интересах самого разработчика.

PS: В Вашем коде вообще отсутствует какой-либо обработчик ошибок. Например, если нет нужного файла DBF? Предполагается, что есть какой-то глобальный обработчик? Настроенный до вызова данной формы?

Ну, защиты от копирования нет, потому что для FoxPro она не предусматривалась изначально. А сейчас уже и не нужна

Если Ваша защита от копирования - это всего-лишь указание на необходимость неких настроек, то тем более не вижу смысла. Если настройки не корректны, то программа будет не корректно работать. Это само по себе лучшая защита. Зачем дополнительно что-то выдумывать?

Насчет первичной настройки, так для этого существуют программы-инсталяторы. Для младших версий был инсталятор, поставляющийся вместе с FoxPro. Позже предполагалось, что разработчик сам найдет устраивающий его вариант. Хотя, конечно, рекомендовался некий инсталятор по умолчанию

Как перенести готовое приложение на машину клиента

Т.е. при помощи некоего внешнего приложения создаете дистрибутив Вашего приложения, который просто запускается у клиента. И там делает все необходимые настройки. Если кроме расположения файлов, регистрации и создания нужной структуры каталогов требуются какие-то дополнительные программные действия, то у программ-инсталяторов обычно предусмотрен вариант запуска некоего приложения по окончании установки. Но эта дополнительная программа у каждого будет своя, поэтому также не может быть общего решения.