Корректно ли так заполнять массив? Опции

[VEDA]

constructor ТContFigur.Create();
var i: integer;
begin
  inherited Create();
  SetLength(MassF, 0);
  for i := 0 to Length(MassF)-1 do
	begin
	  SetLength(MassF,Length(MassF)+1);
	  MassF [Length(MassF)-1]:= MassF[i];
   end;
end;

Уже не соображаю ничего , вроде правильно, хочу перестраховаться

[TarasBer]

А вы сами посмотрите, что делает ваш код.
Пусть длина массива изначально равна N

for i:=0 to Length(MassF)-1 do begin

Мы N раз (длина массива сразу запоминается)

SetLength(MassF,Length(MassF)+1);

Увеличиваем длину массива на единицу - то есть длина массива после всего этого удваивается.

MassF[Length(MassF)-1]:=figure;

А ещё мы N раз присваиваем последний элемент.

end;