procedure TForm1.FormShow(Sender : TObject);
var atom : integer;

CRLF : string;
begin

if
GlobalFindAtom('THIS_IS_SOME_OBSCUREE_TEXT') = 0 then
atom := GlobalAddAtom('THIS_IS_SOME_OBSCUREE_TEXT')
else
begin
    CRLF := #10 + #13;
    ShowMessage('This programm will start only once' + CRLF +
    for next start reboot windows please, or...' + CRLF +
      'REGISTER PROGRAM !!');
    Close;
end;
end;

Вот одна мулька которой я пользуюсь. Все очень простенько.
Основана на серийном номере винта. От копирования не совсем защищает, но запустить программу на другом компьютере не подготовленному человеку становится проблематично.

procedure TForm1.FormActivate(Sender: TObject);
var
SerialNum:Pdword;
a,b:Dword;
buffer:array [0..255] of char;
begin
new(SerialNum);
if getVolumeInformation('c:\',buffer,sizeof(buffer),SerialNum,a,b,nil,0)
then begin
Label1.Caption:=IntToStr(SerialNum^); // сюда запишется серийный номер твоего винта
Dispose(SerialNum);
end;
if (Label1.Caption<>Label2.Caption) and  (Label1.Caption<>Label3.Caption)then begin
//Label2.Caption и Label3.Caption - номера винтов где надо запускать прогу
close;
end
else begin
Label2.Caption:=IntToStr(SerialNum^); // просто так
end;

Можно поискать на  http://www.torry.net/shareware.htm?