[HolyDel]

можно и через массивы. они тоже глобальные.
можно так

Type TSomeFunc
field a,b
filed f#
field s$
end Type

function SomeFunc.TSomeFunc(a)
tmp.TSomeFunc = new TSomeFunc
tmp\a=a
tmp\b=a*2
tmp\f=3.14*a
tmp\s="Vasia Pupkins"
return tmp
end function

применять так:

где то в коде...

a.TSomeFunc = SomeFunc(12)
дальше применять a\a,a\b,a\f,a\s и так далее
delete a

ЗЫ. писалось в браузере и придумывалось на ходу, могут быть ошибки