unit fdt_arrays; {$mode objfpc}{$H+} interface type TBird = class public Arr: array of longint; end; procedure DoIt; implementation procedure DoIt; begin end; end.