Code:

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 = nilthenbegin{ память не была выделена }

   if ACount <= 0thenbegin{ новое количество элементов

                               в массиве равно 0 }

     count := 0;

   endelsebegin{ новое количество элементов в массиве

                     больше 0 }

     GetMem(p, ACount * sizeof(double)); { выделение памяти }

     fillchar(p^, ACount * sizeof(double), 0); { обнуление данных }

     count := ACount;

   end;

endelsebegin

   if ACount <= 0thenbegin{ новое количество элементов в

                               массиве равно 0 }

     FreeMem(p, count * sizeof(double)); { освобождение памяти }

     count := 0;

   endelsebegin

     GetMem(np, ACount * sizeof(double)); { выделение памяти }

     if ACount > count thenbegin{ требуется увеличить

                                    количество элементов }

       move(p^, np^, count * sizeof(double)); { перемещение

                               старых данных на новое место }

       fillchar(np^[count], (ACount - count) * sizeof(double),

         0); { обнуление новых элементов массива }

     endelsebegin

       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 := 0to a.count - 1do

   s := s + #13#10 + IntToStr(i+1) + ': ' + FloatToStr(a.p[i]);

ShowMessage(s);

a.SetCount(4);

a.p^[3] := 50;

{ значения первых элементов не теряются }

s := 'Элементы в массиве:';

for i := 0to a.count - 1do

   s := s + #13#10 + IntToStr(i+1) + ': ' + FloatToStr(a.p[i]);

ShowMessage(s);

a.Destroy;

end;