Проблемы с активацией

[саша40]

Пишу программу. Не как не получается завершить. Проблемы с активацией.
Почти готово, но только одна проблема. Ошибка I/O error103 при активации.
Вот код:

procedure TForm2.Button1Click(Sender: TObject);
var
f: file of integer;
B: integer; //активационая переменая
begin
if not FileExists('Activate/Active.ini') then exit; //если файла активации нет, то выходим.
//читаем 
AssignFile(f,'Acttivate/Active.ini');
{$I-}
Reset(f);
{$I+}
read(f, b); //здесь ошибка
CloseFile(f);
if b=1 then
ShowMessage('Программа была активирована')
else
begin
if Edit1.Text='' then exit;
if Boolend(edit1.Text) then
begin
DeleteFile('Activate/Active.ini');
Assignfile(f, 'Activate/Active.ini');
Rewrite(f);
b:=1;
write(f,b);
closefile(f);
ShowMessage('Программа успешно активирована');
end
else
ShowMessage('Введен неправильный код активации');
end;
end;

Задача: Код активации находится в dll и он всё норм. Задача при нажатие кнопки прочитать переменую;если эта переменая равна 1 то пишим сообщение; Получаем данные из поля ввода и Сравниваем(функция). Если всё правильно то записываем переменую с 1. Подскажите как исправить эту ошибку?

[саша40]

что не кто не знает как?

[Sciv]

AssignFile(f,'Acttivate/Active.ini');

Может, из-за этого?

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

Убрать..

{$I-}
Reset(f);
{$I+}

[Serge_Bliznykov]

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

AssignFile(f,'Acttivate/Active.ini');

Уверен, что Вы попали в точку. Браво!

[саша40]

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

Уверен, что Вы попали в точку. Браво!

убрал и всё заработала спасибо.

[Serge_Bliznykov]

убрал и всё заработала спасибо

Это не мне спасибо, это Sciv зорким и внимательным взглядом разглядел вашу проблему!!
Посему переадресую Вашу благодарность ему!