1) привязать к номеру жётского диска.
2) запаковать upx-ом

upx мегозащита)))))))))))))))

Найди материал по TLS .(thread local storage) механизм локальной памяти потока предоставляющий в распоряжение потоков индивидуальные наборы глобальных - статических переменных. ТЛС поддерживается как на уровне явно вызымаемых АPI-функции , так и на уровне РЕ-формата,неявно обрабатываемого сис загрузчиком. РЕ-форма поддерживает функции обратного вызова(TLS-callback),автоматически вызываемые системой до передачи управления на точку входа. В частности это позволяет определить наличие отладчика или скрытно выполнить некоторые действия. Сис загрузчик,также, записывает TLS-индекс в заданную локацию-отличный способ неявной самомодификации проги. Дизассами она не отлавливается и заводит взломщика в тупик Tls используется в большом кол-ве протекторов,защит,вирусов,� �ряков.

Не работает. При чем ему не нравиться возведение в степень, равную счетчику (в коде цикл, i - счетчик)
Пробывал даже так, из интереса.
Тоже не работает.

Вопрос: как возвести в степень, равную счетчику?

http://www.delphisources.ru/pages/faq/base/power.html

и подключи модуль math

procedure TForm1.FormCreate(Sender: TObject);
var i,a,ss,res,deg:integer;
begin
res:=1; //рез-ат
dig:=2; //число
deg:=10; //степень
for i:=1 to deg do
begin
res:=1;
for a:=1 to i do res:=res*dig;
showmessage(inttostr(res));
end;
end;

Hellsp@wn ну а где твой вариант? я хотя бы предложил.

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

я предложил же, даже, целых 2 варианта

1-ый yandex.ru запрос: delphi получить номер жёсткого диска
2-ой yandex.ru запрос: скачать upx