[NumLock]

TeamsArray и так доступен всем модулям.
добавлено позже
а если глобальные переменные вне закона (чушь, конечно):

Код:

type
  TPerson = record
    FTeam: string[130];
    FCity: string[50];
    FYearOfFoundation: Integer;
  end;

  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    TeamsArray:array[1..100] of  TPerson;
  end;