procedure TForm1.FormCreate(Sender: TObject);
var
ini:TRegIniFile;
sayac:integer;x:string;
begin
x:='c:\deneme.ini';
        ini:=TRegIniFile.Create(x);
        try
        sayac:=ini.Readinteger('program','sayac',0);
        showmessage('sayac='+inttostr(sayac));
        inc(sayac);
        if sayac>10 then
                begin
                showmessage('programı kullanım hakkınız dolmuştur');
                halt;
                end;
        ini.writeinteger('program','sayac',sayac);
        finally
        ini.Free;
        end;
//final
end;