delphi dynamic array count

var
  DynamicArray: array of Integer;
  Count: Integer;
begin
  SetLength(DynamicArray, 5);
  Count := Length(DynamicArray);
end;