Программа на Delphi выдаёт ошибку при записи в файл

[cezer]

Вообщем история такая когда запускаю программу через Делфи он иногда открывает а иногда выдаёт ошибку и подчеркивает строку write(f, rich); // записать содержимое полей записи в файл
и подскажите перелопатил кучу инфы с гугла как сделать чтоб иконка программы в трее отображалась так и не получилось ((( Надеюсь на вашу помощь вот код:

unit Form_;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit; // Название
Button1: TButton; // кнопка Добавить
Label5: TLabel;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


// запись файла
TDetail=record
name: string[40]; // Название
end;

var
Form1: TForm1;
f: file of TDetail; // файл записей - база данных

implementation

{$R *.DFM}

// активизация формы
procedure TForm1.FormActivate(Sender: TObject);
var
resp : word; // ответ пользователя
begin
AssignFile(f, 'D:\Kompas_Base.db');
{$I-}
Reset(f); // открыть файл
Seek( f, FileSize(f)); // указатель записи в конец файла
{$I+}
if IOResult = 0
then button1.enabled:=TRUE // теперь кнопка Добавить доступна
else
begin
resp:=MessageDlg('Файл базы данных не найден.'+
'Открыть БД?',mtInformation,[mbYes,mbNo],0);
if resp = mrYes then
begin
{$I-}
rewrite(f);
{$I+}
if IOResult = 0
then button1.enabled:=TRUE
else ShowMessage('Ошибка создания файла БД.');
end;
end;
end;

// щелчок на кнопке Добавить
procedure TForm1.Button1Click(Sender: TObject);
var
rich: TDetail;
begin
with rich do
begin
name := Edit1.Text;
end;
end;
write(f, rich); // записать содержимое полей записи в файл
end;

// завершение работы программы
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseFile( f ); // закрыть файл
end;

end.