делфи работа с файлами

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure Button6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  Type fir=Record
       pro:String[20];
       ceh:Byte;
       kol:Byte;
     End;
 
var
  Form1: TForm1;
   f:file of fir;
   w:fir;
   a:array of fir;
   fname,fnamet:string;
   ft:TextFile;
    n,i,k:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
SaveDialog1.Title:='Создать файл';
  SaveDialog1.DefaultExt:='dat';
  if SaveDialog1.Execute then
      begin
      fname:=SaveDialog1.FileName;
      AssignFile(f,fname);
      Rewrite(f);
      end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  w.ceh:=StrToInt(Edit1.Text);
   w.pro:=Edit2.Text;
      w.kol:=StrToInt(Edit3.Text);
   Write(f,w);
    Memo2.Lines.Add(w.pro);
   Memo1.Lines.Add(IntToStr(w.ceh));
   Memo3.Lines.Add(IntToStr(w.kol));
 
 
   Edit1.Clear; Edit2.Clear; Edit3.Clear;
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
       OpenDialog1.Title:='Открыть файл';
  if OpenDialog1.Execute Then
    Begin
      fname:=OpenDialog1.FileName;
      AssignFile(f,fname);
      Reset(f);
      Memo1.Clear; Memo2.Clear; Memo3.Clear;
  While Not EOF(f) Do
     Begin
       Read(f,w);
       Memo2.Lines.Add(w.pro);
       Memo1.Lines.Add(IntToStr(w.ceh));
       Memo3.Lines.Add(IntToStr(w.kol));
          end;
 
end;
    end;
procedure TForm1.Button4Click(Sender: TObject);
begin
SaveDialog1.Title:='Сохранить в текстовом файле';
  SaveDialog1.DefaultExt:='.txt';
  if SaveDialog1.Execute Then
    Begin
      fnamet:=SaveDialog1.FileName;
      AssignFile(ft,fnamet);
      ReWrite(ft);
    End;
  WriteLn(ft,'      производственная  фирма ');
  WriteLn(ft,'   цех продукция  количество ');
  Reset(f);
  While Not EOF(f) Do
   Begin
     Read(f,w);
     With w Do
        WriteLn(ft,ceh:10,pro:10,kol:10);
   End;
  CloseFile(f);
  CloseFile(ft);
 
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear; Memo2.Clear; Memo3.Clear;
 Edit1.Clear; Edit2.Clear; Edit3.Clear;
 
 
 
 
end;
 
end.