Probablemente el error provenga de algún tipo de conversión automática de Variant con los operadores '+'.
Prueba con
Código Delphi
[-]
DataToSend := DataToSend +
dsTest.FieldByName['Code'].AsString + '\' +
dsTest.FieldByName['Name'].AsString + '\' +
dsTest.FieldByName['Address'].AsString + '#';