Создать динамический массив

type
TForm1 = ...
...
end;

  TArray = array [0..127] of double;
  PArray = ^TArray;
  TDynArray = object
  p: PArray;
  count: integer;
  constructor Create(ACount: integer); { инициализация }
  procedure SetCount(ACount: integer); { установка количества элементов }
  procedure Reset; { обнуление данных }
  destructor Destroy; { уничтожение }
end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

constructor TDynArray.Create(aCount: integer);
begin
  p := nil;
  count := 0;
  SetCount(ACount);
end;

procedure TDynArray.SetCount(ACount: integer);
var
  np: PArray;
begin
  if count = ACount then
  Exit;
  { память не была выделена }
  if p = nil then
  begin
    { новое количество элементов в массиве равно 0 }
    if ACount <= 0 then
    begin
      count := 0;
    end
    { новое количество элементов в массиве больше 0 }
    else
    begin
      { выделение памяти }
      GetMem(p, ACount * sizeof(double));
      { обнуление данных }
      fillchar(p^, ACount * sizeof(double), 0);
      count := ACount;
    end;
  end
  else
  begin
    { новое количество элементов в массиве равно 0 }
    if ACount <= 0 then
    begin
      { освобождение памяти }
      FreeMem(p, count * sizeof(double));
      count := 0;
    end
    else
    begin
      { выделение памяти }
      GetMem(np, ACount * sizeof(double));
      { требуется увеличить количество элементов }
      if ACount > count then
      begin
        { перемещение старых данных на новое место }
        move(p^, np^, count * sizeof(double));
        { обнуление новых элементов массива }
        fillchar(np^[count], (ACount - count) * sizeof(double), 0);
      end
      else
      begin
        { перемещение части старых данных на новое место }
        move(p^, np^, ACount * sizeof(double));
      end;
      { освобождение старой памяти }
      FreeMem(p, count * sizeof(double));
      p := np;
      count := ACount;
    end;
  end;
end;

procedure TDynArray.Reset;
begin
  { обнуление данных }
  fillchar(p^, count * sizeof(double), 0);
end;

destructor TDynArray.Destroy;
begin
  SetCount(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TDynArray;
  i: integer;
  s: string;
begin
  a.Create(3);
  a.p[0] := 10;
  a.p[1] := 20;
  { второй элемент не указывается, но вследствие обнуления
  при создании массива он равен 0 }
  s := 'Элементы в массиве:';
  for i := 0 to a.count - 1 do
    s := s + #13#10 + IntToStr(i+1) + ': ' + FloatToStr(a.p[i]);
  ShowMessage(s);

  a.SetCount(4);
  a.p^[3] := 50;
  { значения первых элементов не теряются }
  s := 'Элементы в массиве:';
  for i := 0 to a.count - 1 do
    s := s + #13#10 + IntToStr(i+1) + ': ' + FloatToStr(a.p[i]);
  ShowMessage(s);

  a.Destroy;
end;