Dato l'array:

codice:
type
  APistola= array of Integer;
var
  AAPistole: APistola;
begin
  SetLength(AAPistole, 9999);
  ...

Al termine della funzione la memoria viene liberata automaticamente?

Grazie mille, Denis.