Запись 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 FormCreate(Sender: TObject);
  private
    Number : Integer;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Number <= 19 then begin
    fio[Number+1].fname:=Edit1.Text;                  
    RichEdit1.Lines.add(fio[Number+1].fname);              
    Number:=Number+1;
  end;
end;

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, mysql56conn, FileUtil, Forms, Controls, Graphics, Dialogs,
  StdCtrls, fgl;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
    procedure   PrintList();
  public
    { public declarations }
  end;
 
  type
    TMyREcord=record        //Наша запись
      S:String;
      I:Integer;
    end;
    PMyRecord=^TMyREcord;  //Ссылка на нашу запись
 
    TMyRecList= specialize TFPGList<PMyRecord>; //Список из ссылок на наши записи
 
 
var
  Form1: TForm1;
  MyRecordList:TMyRecList;
 
  function SortI(const Item1, Item2: PMyRecord): Integer;  //Сортировка по I
  function SortS(const Item1, Item2: PMyRecord): Integer;  //Сортировка по S
 
implementation
 
function SortI(const Item1, Item2: PMyRecord): Integer;
begin
  if Item1^.I=Item2^.I then Result:=0
     else if Item1^.I>Item2^.I then Result:=1
          else Result:=-1;
end;
 
function SortS(const Item1, Item2: PMyRecord): Integer;
begin
  if Item1^.S=Item2^.S then Result:=0
     else if Item1^.S>Item2^.S then Result:=1
          else Result:=-1;
end;
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var Zapis:PMyRecord;
begin
  New(Zapis);
  Zapis^.I:=0;
  Zapis^.S:='b';
  MyRecordList.Add(Zapis);    //Добавить запись в список
 
  New(Zapis);
  Zapis^.I:=1;
  Zapis^.S:='a';
  MyRecordList.Add(Zapis);
 
  MyRecordList.Sort(@SortS);
  PrintList();
  MyRecordList.Sort(@SortI);
  PrintList();
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  MyRecordList:=TMyRecList.Create;
end;
 
procedure TForm1.PrintList;
var I:Integer;
begin
  Memo1.Lines.Add('');
  for i:=0 to MyRecordList.Count-1 do
  begin
       Memo1.Lines.Add(MyRecordList.Items[i]^.S);
  end;
end;
 
end.

procedure TForm1.PrintZapYear(MaxCount:Word);
 
var ZapIndex:Integer;
  BegYear:Word;  //Показывать не раньше этого года
  ResYear:Word;
  NInYear:Word;  //Текущий номер выданный в этом году
begin
  BegYear:=fio[1].Year;
  NInYear:=0;
 
  for ZapIndex:=1 to High(fio) do
  begin
    ResYear:=BegYear+(NInYear div MaxCount);
    if ResYear<fio[ZapIndex].Year then
    begin
      BegYear:=fio[ZapIndex].Year;
      NInYear:=0;
      ResYear:=BegYear;
    end;
    Inc(NInYear);
    StringGrid1.Cells[2, ZapIndex]:=(IntToStr(ResYear));
  end;
 
end;