[jhonny]

Si de pronto te refieres a la segunda opcion que te pone xEsk, puedes usar la siguiente función y/o adaptarla a tu necesidad:

Código Delphi [-]
function Sum(A: array of Integer);
var I: Integer;
begin
  Result := 0;
  for I := 0 to High(A) do
    Result := Result + A[i];
end;

Empezado por Rasecma

Ya se que este foro es para temas mucho mas importantes pero si no salgo de esta no se lo que pasa.

Dejame decirte que en estos foros todos los temas son muy importantes .