<?xml version="1.0"?><program><function pos="8:1"><name text="AddToVarArray" pos="8:23"/><parameters pos="8:23"><varparams pos="8:25"/><var pos="8:29"><ident text="aVarArray" pos="8:38"/><type text="Variant" pos="8:47"/></var><var pos="8:49"><ident text="aValue" pos="8:55"/><type text="Variant" pos="8:64"/></var><var pos="8:66"><ident text="aCount" pos="8:72"/><type text="integer" pos="8:81"/><init pos="8:82"><expr pos="8:84" pos1="8:85"><number text="1" pos="8:85"/></expr></init></var></parameters><type text="integer" pos="8:95"/><var pos="10:3"><ident text="i" pos="10:4"/><type text="integer" pos="10:13"/></var><compoundstmt pos="11:1"><trystmt pos="13:5"><ifstmt pos="14:7"><expr pos="14:10" pos1="14:31"><dsgn pos="14:10"><node text="VarIsNull" pos="14:19"/><expr pos="14:21" pos1="14:30"><dsgn pos="14:21"><node text="aVarArray" pos="14:30"/></dsgn></expr></dsgn></expr><thenstmt pos="15:14"><compoundstmt pos="15:14"><assignstmt pos="17:11"><dsgn pos="17:11"><node text="Result" pos="17:17"/></dsgn><expr pos="17:21" pos1="17:27"><dsgn pos="17:21"><node text="aCount" pos="17:27"/></dsgn></expr></assignstmt><assignstmt pos="18:11"><dsgn pos="18:11"><node text="aVarArray" pos="18:20"/></dsgn><expr pos="18:24" pos1="18:66"><dsgn pos="18:24"><node text="VarArrayCreate" pos="18:38"/><expr pos="18:39" pos1="18:53"><set pos="18:40"><expr pos="18:40" pos1="18:41"><number text="0" pos="18:41"/></expr><expr pos="18:42" pos1="18:52"><dsgn pos="18:42"><node text="aCount" pos="18:48"/></dsgn><op text="-" pos="18:50"/><number text="1" pos="18:52"/></expr></set></expr><expr pos="18:55" pos1="18:65"><dsgn pos="18:55"><node text="varVariant" pos="18:65"/></dsgn></expr></dsgn></expr></assignstmt></compoundstmt></thenstmt><elsestmt pos="19:18"><compoundstmt pos="19:18"><assignstmt pos="21:11"><dsgn pos="21:11"><node text="Result" pos="21:17"/></dsgn><expr pos="21:21" pos1="21:48"><dsgn pos="21:21"><node text="Length" pos="21:27"/><expr pos="21:29" pos1="21:38"><dsgn pos="21:29"><node text="aVarArray" pos="21:38"/></dsgn></expr></dsgn><op text="+" pos="21:41"/><dsgn pos="21:42"><node text="aCount" pos="21:48"/></dsgn></expr></assignstmt><callstmt pos="22:11"><dsgn pos="22:11"><node text="SetLength" pos="22:20"/><expr pos="22:21" pos1="22:30"><dsgn pos="22:21"><node text="aVarArray" pos="22:30"/></dsgn></expr><expr pos="22:32" pos1="22:59"><dsgn pos="22:32"><node text="Length" pos="22:38"/><expr pos="22:40" pos1="22:49"><dsgn pos="22:40"><node text="aVarArray" pos="22:49"/></dsgn></expr></dsgn><op text="+" pos="22:52"/><dsgn pos="22:53"><node text="aCount" pos="22:59"/></dsgn></expr></dsgn></callstmt></compoundstmt></elsestmt></ifstmt><assignstmt pos="24:7"><dsgn pos="24:7"><node text="aVarArray" pos="24:16"/><node text="[" pos="24:17"/><expr pos="24:18" pos1="24:24"><dsgn pos="24:18"><node text="Result" pos="24:24"/></dsgn></expr></dsgn><expr pos="24:29" pos1="24:35"><dsgn pos="24:29"><node text="aValue" pos="24:35"/></dsgn></expr></assignstmt><exceptstmt pos="26:9"><callstmt pos="26:9"><dsgn pos="26:9"><node text="ExceptionProc" pos="26:22"/><expr pos="26:24" pos1="26:39"><string text="'AddToVarArray'" pos="26:39"/></expr></dsgn></callstmt></exceptstmt></trystmt></compoundstmt></function><compoundstmt pos="32:1"/><types/></program>