<?xml version="1.0"?><program><var pos="2:3"><ident text="ListInfo" pos="2:11"/><type text="TStrings" pos="2:21"/></var><procedure pos="4:1"><name text="WriteLog" pos="4:19"/><parameters pos="4:19"><var pos="4:20"><ident text="Msg" pos="4:23"/><type text="String" pos="4:31"/></var><var pos="4:33"><ident text="xShowMsg" pos="4:41"/><type text="boolean" pos="4:50"/><init pos="4:51"><expr pos="4:53" pos1="4:58"><dsgn pos="4:53"><node text="FALSE" pos="4:58"/></dsgn></expr></init></var></parameters><compoundstmt pos="5:1"><callstmt pos="6:3"><dsgn pos="6:3"><node text="WriteLogFile" pos="6:15"/><expr pos="6:16" pos1="6:23"><dsgn pos="6:16"><node text="FileLog" pos="6:23"/></dsgn></expr><expr pos="6:25" pos1="6:28"><dsgn pos="6:25"><node text="Msg" pos="6:28"/></dsgn></expr></dsgn></callstmt></compoundstmt></procedure><procedure pos="9:1"><name text="WriteInfo" pos="9:20"/><parameters pos="9:20"><var pos="9:21"><ident text="Msg" pos="9:24"/><type text="String" pos="9:32"/></var><var pos="9:34"><ident text="xShowMsg" pos="9:42"/><type text="boolean" pos="9:51"/><init pos="9:52"><expr pos="9:54" pos1="9:59"><dsgn pos="9:54"><node text="FALSE" pos="9:59"/></dsgn></expr></init></var></parameters><compoundstmt pos="10:1"><ifstmt pos="11:3"><expr pos="11:6" pos1="11:42"><dsgn pos="11:6"><node text="ListInfo" pos="11:14"/><node text="IndexOf" pos="11:22"/><expr pos="11:23" pos1="11:37"><dsgn pos="11:23"><node text="MD5String" pos="11:32"/><expr pos="11:33" pos1="11:36"><dsgn pos="11:33"><node text="Msg" pos="11:36"/></dsgn></expr></dsgn></expr></dsgn><op text="&#60;" pos="11:40"/><number text="0" pos="11:42"/></expr><thenstmt pos="12:3"><compoundstmt pos="12:3"><callstmt pos="13:5"><dsgn pos="13:5"><node text="ListInfo" pos="13:13"/><node text="Add" pos="13:17"/><expr pos="13:18" pos1="13:32"><dsgn pos="13:18"><node text="MD5String" pos="13:27"/><expr pos="13:28" pos1="13:31"><dsgn pos="13:28"><node text="Msg" pos="13:31"/></dsgn></expr></dsgn></expr></dsgn></callstmt><callstmt pos="14:5"><dsgn pos="14:5"><node text="WriteLogFile" pos="14:17"/><expr pos="14:18" pos1="14:26"><dsgn pos="14:18"><node text="FileInfo" pos="14:26"/></dsgn></expr><expr pos="14:28" pos1="14:31"><dsgn pos="14:28"><node text="Msg" pos="14:31"/></dsgn></expr></dsgn></callstmt></compoundstmt></thenstmt></ifstmt><callstmt pos="16:3"><dsgn pos="16:3"><node text="WriteLog" pos="16:11"/><expr pos="16:12" pos1="16:15"><dsgn pos="16:12"><node text="Msg" pos="16:15"/></dsgn></expr></dsgn></callstmt></compoundstmt></procedure><procedure pos="23:1"><name text="ExceptionLog" pos="23:23"/><parameters pos="23:23"><var pos="23:25"><ident text="xMsg" pos="23:29"/><type text="string" pos="23:37"/></var></parameters><compoundstmt pos="24:1"><assignstmt pos="25:3"><dsgn pos="25:3"><node text="vLogException" pos="25:16"/></dsgn><expr pos="25:20" pos1="25:24"><dsgn pos="25:20"><node text="TRUE" pos="25:24"/></dsgn></expr></assignstmt><callstmt pos="26:3"><dsgn pos="26:3"><node text="RaiseLog" pos="26:11"/><expr pos="26:13" pos1="26:17"><dsgn pos="26:13"><node text="xMsg" pos="26:17"/></dsgn></expr><expr pos="26:19" pos1="26:40"><dsgn pos="26:19"><node text="LastException" pos="26:32"/><node text="Message" pos="26:40"/></dsgn></expr></dsgn></callstmt></compoundstmt></procedure><procedure pos="31:1"><name text="RaiseLog" pos="31:19"/><parameters pos="31:19"><var pos="31:21"><ident text="xMsg" pos="31:25"/><ident text="xExceptionMessage" pos="31:44"/><type text="string" pos="31:52"/></var></parameters><compoundstmt pos="32:1"><callstmt pos="33:3"><dsgn pos="33:3"><node text="WriteInfo" pos="33:12"/><expr pos="33:14" pos1="33:62"><string text="'ΡΑΞΙ: '" pos="33:22"/><op text="+" pos="33:24"/><dsgn pos="33:25"><node text="xMsg" pos="33:29"/></dsgn><op text="+" pos="33:31"/><string text="' ('" pos="33:36"/><op text="+" pos="33:38"/><dsgn pos="33:39"><node text="xExceptionMessage" pos="33:56"/></dsgn><op text="+" pos="33:58"/><string text="')'" pos="33:62"/></expr></dsgn></callstmt><callstmt pos="35:3"><dsgn pos="35:3"><node text="raise" pos="35:8"/><expr pos="35:10" pos1="35:42"><dsgn pos="35:10"><node text="xMsg" pos="35:14"/></dsgn><op text="+" pos="35:16"/><string text="'&#13;&#10;'" pos="35:22"/><op text="+" pos="35:24"/><dsgn pos="35:25"><node text="xExceptionMessage" pos="35:42"/></dsgn></expr></dsgn></callstmt></compoundstmt></procedure><compoundstmt pos="39:1"/><types/></program>