<?xml version="1.0"?><program><var pos="10:3"><ident text="vLogException" pos="10:16"/><type text="boolean" pos="10:25"/></var><var pos="12:3"><ident text="IsCriticalError" pos="12:18"/><type text="boolean" pos="12:27"/></var><procedure pos="21:1"><name text="CriticalError" pos="21:24"/><compoundstmt pos="22:1"><assignstmt pos="24:3"><dsgn pos="24:3"><node text="IsCriticalError" pos="24:18"/></dsgn><expr pos="24:22" pos1="24:26"><dsgn pos="24:22"><node text="TRUE" pos="24:26"/></dsgn></expr></assignstmt></compoundstmt></procedure><procedure pos="29:1"><name text="InitializeLog" pos="29:24"/><compoundstmt pos="30:1"><assignstmt pos="33:3"><dsgn pos="33:3"><node text="vLogException" pos="33:16"/></dsgn><expr pos="33:22" pos1="33:27"><dsgn pos="33:22"><node text="FALSE" pos="33:27"/></dsgn></expr></assignstmt><assignstmt pos="34:3"><dsgn pos="34:3"><node text="IsCriticalError" pos="34:18"/></dsgn><expr pos="34:22" pos1="34:27"><dsgn pos="34:22"><node text="FALSE" pos="34:27"/></dsgn></expr></assignstmt></compoundstmt></procedure><procedure pos="43:1"><name text="LogMessage" pos="43:21"/><parameters pos="43:21"><var pos="43:23"><ident text="xMsg" pos="43:27"/><type text="string" pos="43:35"/></var></parameters><compoundstmt pos="44:1"><callstmt pos="46:3"><dsgn pos="46:3"><node text="ShowMessage" pos="46:14"/><expr pos="46:16" pos1="46:20"><dsgn pos="46:16"><node text="xMsg" pos="46:20"/></dsgn></expr></dsgn></callstmt></compoundstmt></procedure><procedure pos="52:1"><name text="RaiseLog" pos="52:19"/><parameters pos="52:19"><var pos="52:21"><ident text="xMsg" pos="52:25"/><ident text="xExceptionMessage" pos="52:44"/><type text="string" pos="52:52"/></var></parameters><compoundstmt pos="53:1"><callstmt pos="56:3"><dsgn pos="56:3"><node text="raise" pos="56:8"/><expr pos="56:10" pos1="56:42"><dsgn pos="56:10"><node text="xMsg" pos="56:14"/></dsgn><op text="+" pos="56:16"/><string text="'&#13;&#10;'" pos="56:22"/><op text="+" pos="56:24"/><dsgn pos="56:25"><node text="xExceptionMessage" pos="56:42"/></dsgn></expr></dsgn></callstmt></compoundstmt></procedure><procedure pos="62:1"><name text="ExceptionLog" pos="62:23"/><parameters pos="62:23"><var pos="62:25"><ident text="xMsg" pos="62:29"/><type text="string" pos="62:37"/></var></parameters><compoundstmt pos="63:1"><assignstmt pos="64:3"><dsgn pos="64:3"><node text="vLogException" pos="64:16"/></dsgn><expr pos="64:20" pos1="64:24"><dsgn pos="64:20"><node text="TRUE" pos="64:24"/></dsgn></expr></assignstmt><callstmt pos="65:3"><dsgn pos="65:3"><node text="RaiseLog" pos="65:11"/><expr pos="65:13" pos1="65:17"><dsgn pos="65:13"><node text="xMsg" pos="65:17"/></dsgn></expr><expr pos="65:19" pos1="65:40"><dsgn pos="65:19"><node text="LastException" pos="65:32"/><node text="Message" pos="65:40"/></dsgn></expr></dsgn></callstmt></compoundstmt></procedure><procedure pos="68:1"><name text="ExceptionProc" pos="68:24"/><parameters pos="68:24"><var pos="68:26"><ident text="xMsg" pos="68:30"/><type text="string" pos="68:38"/><init pos="68:39"><expr pos="68:41" pos1="68:43"><string text="''" pos="68:43"/></expr></init></var></parameters><compoundstmt pos="69:1"><callstmt pos="70:3"><dsgn pos="70:3"><node text="ExceptionLog" pos="70:15"/><expr pos="70:17" pos1="70:31"><string text="'Ραξι '" pos="70:24"/><op text="+" pos="70:26"/><dsgn pos="70:27"><node text="xMsg" pos="70:31"/></dsgn></expr></dsgn></callstmt></compoundstmt></procedure><compoundstmt pos="76:1"/><types/></program>