[Oleg]

Вот разберись с этим, думаю поможет:

Код:

program trial; 

uses 

forms, 
unit1 in 'unit1.pas' {form1}, 
registry, dialogs; // Для tregistry и showmessage 

{$r *.res} 
var 
reg: tregistry; 
n: integer; 
begin 
reg := tregistry.create; 
with reg do 
begin 
openkey('software', true); 
openkey('trialprog', true); 
if valueexists('maxrun') then // Первый запуск? 
begin // - Нет 
n := readinteger('maxrun')-1; 
if n>=0 then 
writeinteger('maxrun', n) 
end else begin // -Да, первый запуск 
n := 5; 
writeinteger('maxrun', n) 
end; 
free 
end; 
if n>0 then 
begin 
application.createform(tform1, form1); 
application.run; 
end else 
showmessage('Исчерпано максимальное количество запусков'+ 
' пробной версии программы') 
end.