[Edinora]

обявление в форм1:

Код:

type
  TKom = record
    FEmblem: string[50];
    FTeam: string[30];   
  end;

  TKomFile = file of TKom;

type
  TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    TAr:array of TKom;
    TbArray:array of array of string[6];   
  end;

В другой форме создается табличка (длина(TAr)+1(фиксированные строки), длина(TAr)+1(фиксированные столбцы)). Данные с нее должны записываться в типизированный файл. И при необходимости считываться.
Делаю отдельный юнит для процедур. Прописала считывание- запись, но не работает.