[~TB~]

А что мешает сделать так:

Код:

type
  TMasItem = class
  private
    Fmas: byte;
    FFieldOwner: byte;
    FCritMass: byte;
    FExplosion: boolean;
  public
    property mas: byte read Fmas write Fmas;
    property FieldOwner: byte read FFieldOwner write FFieldOwner;
    property CritMass: byte read FCritMass write FCritMass;
    property Explosion: boolean read FExplosion write FExplosion;
    procedure FutureUsedMethodforOneItem;
  end;

  TMasField = class
  public
    Field: Array [1 .. 8, 1 .. 8] of TMasItem;
    constructor Create;
    destructor Destroy; override;
  end;

implementation

constructor TMasField.Create;
var
  i, j: Integer;
begin
  inherited Create;
  for i := 1 to 8 do
    for j := 1 to 8 do
      Field[i, j] := TMasItem.Create;
end;

destructor TMasField.Destroy;
var
  i, j: Integer;
begin
  for i := 1 to 8 do
    for j := 1 to 8 do
      FreeAndNil(Field[i, j]);
  inherited Destroy;
end;

procedure TMasItem.FutureUsedMethodforOneItem;
begin
  Beep;
end;