#!/usr/bin/lua

function template(G) G=G or _G return function(text)
    text=text:gsub('{{([^}]+)}}',function(value) local res=G
        for name in value:gmatch "[^%.]+"  do 
            local p,fn=name:find('|') if p then fn=name:sub(p+1) name=name:sub(1,p-1) end
            res=res[name] if res==nil then error("no "..value) end
            if type(res)=='function' then res=res() end
            if p then fn:gsub('[^|]+',function(f) if G[f]==nil then error("no "..f) end res=G[f](res) end) end
        end
        if res==nil then error("no value "..value) end return res
    end)
    return text
end end
function capitalise(s) return s:gsub("^.",string.upper) end

T=template{ name="double", c=capitalise }

print(T[[
Type
  T{{name|c}}Array=class;
    FCount: integer;
    FCapacity: integer;
    FItems: array of {{name}}
...


И далее объявление:

  Var
    MyExtArray:T{{name|c}}Array
]])

Type
  TDoubleArray=class;
    FCount: integer;
    FCapacity: integer;
    FItems: array of double
...


И далее объявление:

  Var
    MyExtArray:TDoubleArray

<?php
$name="double";
$cname=ucfirst($name);
?>
Type
  T<?=$cname?>Array=class;
    FCount: integer;
    FCapacity: integer;
    FItems: array of <?=$name?>
...


И далее объявление:

  Var
    MyExtArray:T<?=$cname?>Array