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
var
VarGlobal1: Integer;
VarGlobal2: string;
Para usar una de estas variables:
Código Delphi
[-]
unit Form1;
interface
uses
implementation
uses Globales;
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
[-]
function DoSecuencia(var Secuencia: [TipoDeDato]): Boolean;
if DoSecuencia(ASecuencia) then
begin
end
else
ShowMessage('Error creando la secuencia')
Saludos...