[NumLock]

Код:

type
  TData = record
    dynarr: array of Integer;
  end;
var
  Data: TData;
begin
  SetLength(Data.dynarr, 1000);
  Caption:=IntToStr(SizeOf(Data.dynarr)*Length(Data.dynarr));
end;