[Илюха...]

Дано задание
Написать программу «Ежедневник». Пусть при запуске приложения выдается список дел на сегодняшнюю дату (данные берутся из файла). Реализовать возможность добавления в ежедневник новых событий через отдельное окно.
С работой с файлами ещё плохо разобрался помогите,
написал код выдаёт ошибку.

Код:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit2: TEdit;
Label1: TLabel;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
f:textfile;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
Var fname:string;
begin
fname:='C:\Users\Илюша\Desktop\Учёб а\ВУ мет инф\Индивидуальное задание\2\ej.txt';
AssignFile(f,fname);
if fileExists(fname) then
Append(f)
else Rewrite(f);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseFile(f);
end;

end.
unit Unit2;

interface

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

type
TForm2 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
MonthCalendar1: TMonthCalendar;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
f:TextFile;
implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
begin
Form1.Show;
Form2.Close;
end;

procedure TForm2.Button1Click(Sender: TObject);
Var d:TDateTime;
begin
d:=MonthCalendar1.Date;
WriteLn(f,DateToStr(d)+ ' '+edit1.Text);
Edit1.Text:='';
end;

end.

Admin: Пользуемся тегами для оформления кода!