Типизированные файлы,формы

[Richik123]

Делаю справочник
но выскакивают ошибки,В которых не могу разобраться
sprav.rar

[eval]

все фигня, не заморачивайтесь

[Richik123]

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

все фигня, не заморачивайтесь

как это понимать?

[FaTaL]

Какие ошибки, код кидай сюда, а не в архиве.

[Richik123]

unit Unit1;

interface

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

type
  TAbonent = record
  Dolgnost: string[50];
Fio : string[50];
Vnutr: String[5];
Telefon: String[30];
Pochta: String[50];
Spisok: String[250];
end;
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Memo1: TMemo;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Abonent: TAbonent;
    DAbonent: file of TAbonent;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
SetCurrentDir(ExtractFilePath(Application.ExeName) + 'Àáîíåíòû');
Abonent.Dolgnost:=Edit2.text;
Abonent.Fio := Edit3.Text;
Abonent.Vnutr := Edit4.Text;
Abonent.Telefon := Edit5.Text;
Abonent.Pochta := Edit6.Text;
Abonent.Spisok := Memo1.Text;

AssignFile(DAbonent, Edit3.Text);
ReWrite(DAbonent);
Write(DAbonent, Abonent );
CloseFile(DAbonent);

if FileExists(Edit3.Text) = True
then
ShowMessage('Çàïèñü ñîõðàíåíà');
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
SetCurrentDir(ExtractFilePath(Application.ExeName) + 'Àáîíåíòû');

try
if FileExists(Edit1.Text) = True
then begin
AssignFile(DAbonent, Edit1.Text);
Reset(DAbonent);
Read(DAbonent, Abonent);
CloseFile(DAbonent);
Edit2.Text := Abonent.Dolgnost;
Edit3.Text := Abonent.Fio;
Edit4.Text := Abonent.Vnutr;
Edit5.Text := Abonent.Telefon;
Edit6.Text := Abonent.Pochta;
Memo1.Text := Abonent.Spisok;

end else
ShowMessage('Ôàéë íå íàéäåí');

Except
Exit;
end;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit5.Text := '';
Edit6.Text := '';
Memo1.Text := '';
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
TForm3.Showmodal;

end;

end.