Reclock cria registro com campos em branco

No seu loop, voce deve usar macro substituição:


                for nY := 1 to Len(aCampos)
                    &("SNG->("+aCampos[nY][1]+")") := (aCampos[nY][2])
                    ProcessMessages()
                next nY