[[maeyanes]]

Para crear una variable global, solo tienes que declararla en la sección interface de la unidad y luego referenciar esta unidad en las otras donde la vayas a usar:

Código Delphi [-]
unit Globales;

interface

uses
  // Lista de unidades

var
  VarGlobal1: Integer;
  VarGlobal2: string;

Para usar una de estas variables:

Código Delphi [-]
unit Form1;

interface

uses
  // Lista de unidades

  // Declaración de tipos y demás

implementation

uses Globales; // con esto puedo usar cualquiera de las variables declaradas en Globales.pas

Ahora, sobre tu duda, yo te recomendaría una función que devuelva True o False si tuvo éxito y como parte de sus parámetros devuelva la secuencia, algo así:

Código Delphi [-]
// Declaración:
function DoSecuencia(var Secuencia: [TipoDeDato]): Boolean;

// Una forma de usarse:
if DoSecuencia(ASecuencia) then
begin
  // Hago aquí lo que quiera con la secuencia creada
end
else
  ShowMessage('Error creando la secuencia')

Saludos...