Неправильно работает кнопка!
 

procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(f,'qwerty);
rewrite(f);
write(f,'Ваш текст');
closefile(f);
button1.free;
end;


Данная процедура вызывается нажатием кнопки.Все работает,только после нажатия на половине выполнении выскакивает ошибка ASSOCIATIVE ERROR.Как убрать ее?

Ответ: Неправильно работает кнопка!
 

Во-первых, непонятно, зачем button1.free, и как вообще после этого кнопку можно повторно нажать, она же удаляется.
Во-вторых, ошибка может быть связана с попыткой повторного открытия уже открытого файла.

Ответ: Неправильно работает кнопка!
 

Мне не нужно повторно нажимать кнопку.Мне наоборот нужно ее убрать дабы уберечь от повторного нажатия.Без] button1.free программа работает нормально файл создает и инфа в нем сохраняется.С buttion1.free ошибка вылезает после нажатия кнопки даже если приложение запущенно впервые и текстового файла еще нет.

Ответ: Неправильно работает кнопка!
 

У меня данный код никаких ошибок не вызывает, ошибка вероятно связана либо с системой, либо с доступом к файлам.
Но в любом случае, использовать здесь метод Free это изврат. Абсолютно достаточно и куда более корректно использовать свойство Enable.

Ответ: Неправильно работает кнопка!
 

свойство Visible

Ответ: Неправильно работает кнопка!