[BloodFooria]

В Интернете видел исходник для выяснения IP-адреса компьютера... Можно реализовать через это.

Узнаев свой IP-адрес компьютера, включаете этот сурс в код программы. После идет сравнение с IP-адресом, если несовпадает, то выход...

Вообщем узнать IP можно так WinSock в Uses

Код:

const WSVer = $101;
var IP : String;
    WSAData : TWSAData;
    P : PHostEnt;
    Buf : array [0..127] of Char;
IP:= '';
  if WSAStartup(WSVer, WSAData) = 0
    then
      begin
      if GetHostName(@Buf, 128) = 0
        then
          begin
          P:= GetHostByName(@Buf);
          if P <> nil
            then IP:= iNet_ntoa(PInAddr(p^.h_addr_list^)^);
          end;
      WSACleanup;
      end;

После сравниваете уже с известным вам IP.

Вообщем должно работать Я с помощью IP делал привязанность программы к одному компьютеру (делал что-то вроде "регистрационного ключа").