Слздание компонентов.

TUnitComands = class(TComponent)
  protected
    { Protected declarations }

    Comands: TList;  //Команды
    ....................
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    ....................
    function Add (code: Integer; name: string; metod: T_MetodComand; countParam: TCountParam=0): Integer; // добавляет эллемент
    ....................
  end;


constructor TUnitComands.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 Comands:=TList.Create;
end;

destructor TUnitComands.Destroy;
begin
 Comands.Free;
 inherited Destroy;
end;

function TUnitComands.Add (code: integer; name: string; metod: T_MetodComand; countParam: TCountParam=0): Integer;
var comand: P_ComandOptions;
begin
 new(comand);
 comand.code:=code;
 comand.name:=name;
 comand.metod:=metod;
 comand.CountParam:=countParam;
 result:= Comands.add(comand);  // <- Вылетает ошибка  EAccessViolation
end;