Запись record в массив из edit

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Menus;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    RichEdit1: TRichEdit;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Label6: TLabel;
    Edit5: TEdit;
    Button1: TButton;
    UpDown1: TUpDown;
    Edit6: TEdit;
    UpDown2: TUpDown;
    Label7: TLabel;
    Edit7: TEdit;
    Button2: TButton;
    RichEdit2: TRichEdit;
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type                              <<ВОТ ЭТИ СТРОКИ НЕПРАВИЛЬНЫ?
  zapis=record                 <<ВОТ ЭТИ СТРОКИ НЕПРАВИЛЬНЫ?
  fname: string[20];         <<ВОТ ЭТИ СТРОКИ НЕПРАВИЛЬНЫ?
  sname: string[20];         <<ВОТ ЭТИ СТРОКИ НЕПРАВИЛЬНЫ?
  tname: string[20];         <<ВОТ ЭТИ СТРОКИ НЕПРАВИЛЬНЫ?
end;
 
var
  fio: array [1..20] of zapis;   <<ВОТ ЭТИ СТРОКИ НЕПРАВИЛЬНЫ?
  Form1: TForm1;
  x:integer;
 
implementation
 
{$R *.dfm}
 
 
 
 
 
procedure TForm1.N4Click(Sender: TObject);
begin
Close
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
 
Form1.OpenDialog1.Filter := 'Текстовые файлы(*.txt)|*.txt| Форматированный текст (*.rtf)|*.rtf';
Form1.OpenDialog1.Execute();
Form1.RichEdit1.Lines.LoadFromFile(Form1.OpenDialog1.FileName);
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
Form1.SaveDialog1.Execute();
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName+'.rtf');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
fio[i].fname:=Edit1.Text;                         <<ВОТ ЭТИ СТРОКИ НЕПРАВИЛЬНЫ?
RichEdit1.Lines.add(fio[i].fname);              <<ВОТ ЭТИ СТРОКИ НЕПРАВИЛЬНЫ?
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
RichEdit1.Clear;
end;
 
end.

procedure TForm1.Button2Click(Sender: TObject);
var d:integer;
begin
d:=1;
for d:=1 to stringgrid1.rowcount do
StringGrid1.Cells[1,d]:=RichEdit1.Lines[d];
end;

for d:=0 to stringgrid1.rowcount-1 do

StringGrid1.Cells[0,d]:=RichEdit1.Lines[d];

RichEdit1.Lines.add('¹ ' + Edit5.Text + ' ' + Edit1.Text + ' ' + Edit2.Text + ' ' + Edit3.Text + ' ' + Edit4.Text + ' ' + Edit7.Text);

StringGrid1.Cells[0,d]:=RightStr(RichEdit1.Lines[d],4);

d:=0;
for d:=0 to stringgrid1.rowcount-1 do

uses ..., SysUtils,...