Проблемы с созданием динамического массива

[Pykhov]

при попытки вызвать функцию addPen() для добавления нового элемента массива происходит ошибка

type
TPen=class
    Name:string;
    address:Word;
    column:string;
    value:Single;
  end;
  Tdatabase = record
    Name:string;
    Host:string;
    Port:word;
    Login,pass:string;
    TableName:string;
  end;
  Tdevice =class
    Name:string;
    Host:string;
    Port:word;
    DataBases:Tdatabase;
    pens:array of TPen;
    function addPen(NamePen: string; addressPen: Word):boolean;
  end;

function Tdevice.addPen(NamePen: string; addressPen: Word): boolean;
begin
  try
      SetLength(self.pens,Length(self.pens)+1);
      pens[Length(pens)].Name:=NamePen;
      pens[Length(pens)].address:=addressPen;
      pens[Length(pens)].column:='';
      pens[Length(pens)].value:=-1111;
      Result:=True;
  except
    Result:=False;
  end;
end;

...
dev:Tdevice;
dev.addPen('1',1);

[evg_m]

dev:=TDevice.Create;
dev.AddPen('1',1);

[Аватар]

pens[Length(pens)-1].Name:=NamePen;
или
pens[High(pens)].Name:=NamePen;
остальные аналогично

[Pykhov]

Сообщение от Аватар

pens[Length(pens)-1].Name:=NamePen;
или
pens[High(pens)].Name:=NamePen;
остальные аналогично

Спасибо все заработало