Delphi implementation of MODBUS SLAVE source code