[[egostar]]

Yo nadamas agregaria a tu código variables ya que pudiera ser que la secuancia dependa de algun dato.

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

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

Saludos