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

[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]

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

Что это?! Вы под чем это писали?
Вот код, который делает точно то же, что и ваш.

constructor TContFigur.Create;
  var i, j: integer;
  figure: TFigure;
begin
  inherited Create;
  j := Length(MassF);
  SetLength(MassF, j*2);
  for i := j to Length(MassF) - 1 do MassF[i] := Figure;
end;

Пятачок, выдыхай...