Проблемы с привязкой к железу

[Azazel9024]

Доброго времени суток, есть такой кусок кода:

procedure TForm1.Button3Click(Sender: TObject);
var
VolName,
FileSysName :array [0..MAX_PATH-1] of Char;
FileSysFlags,
VolSerialNum,
MaxCompLength :DWord;
hddid, id:string;
IdHTTP1 : TIdHTTP;
begin
GetVolumeInformation('C:\',VolName,Max_Path,
@VolSerialNum,
MaxCompLength,
FileSysFlags,
FileSysName,
Max_Path);
id:=IntToHex(VolSerialNum,8);
try
idhttp1.Create;
IdHTTP1.Get('http://site.ru/'+id+'.txt');
except
end;
if
IdHTTP1.ResponseCode = 404
then
showmessage('nya')
else
Button2.Enabled:=true;
end;

Всё вроде-бы верное, но вместо того, чтобы разблокировать Button2, мне выдаёт вот это при нажатии на Button3:

Прошу помощи, в чём проблема? Заранее спасибо.

[spamer]

Вместо

idhttp1.Create;

нужно так

IdHTTP1 := TIdHTTP.Create;

[Azazel9024]

Огромное спасибо!

if
IdHTTP1.ResponseCode = 404
then
showmessage('Ваша копия не лицензирована.')
else
Button2.Enabled:=true;
end;

Еще такая проблемка, нужно, чтобы после сообщения о том, что копия не лицензирована, приложение закрывалось. Тут у меня скорее проблемы с синтаксисом.

[spamer]

begin
  showmessage('Ваша копия не лицензирована.');
  Application.Terminate;
end;

[Человек_Борща]

Не обижайтесь, но это ломается очень быстро.

[Azazel9024]

Сообщение от Человек_Борща

Не обижайтесь, но это ломается очень быстро.

Есть альтернативные варианты?

[Azazel9024]

Сообщение от spamer

begin
  showmessage('Ваша копия не лицензирована.');
  Application.Terminate;
end;

[Человек_Борща]

Есть альтернативные варианты?

Множество.

Создайте ключ на основе 2х пар.
1 пара создается на клиенте, а 2я на основе 1й, генерируется на стороне разработчика, получается ключ активации ПО.

Возмите пример реализации доступа к файлам базы у KeePass.

[spamer]

На самом деле стоит для начала определиться, а нужна ли вобще вашему приложению лицензионная система?

[Azazel9024]

Сообщение от Человек_Борща

Создайте ключ на основе 2х пар.
1 пара создается на клиенте, а 2я на основе 1й, генерируется на стороне разработчика, получается ключ активации ПО.

Как сложно это реализовать?
И как обойти придуманную мною защиту?