¿Como enviar un Record mediante un Socket?

[juanlaplata]

En mi caso, en la utilizacion de socket y envio de "texto". por cada "palabra" las separaba por algun cartacter especial, y del lado del q recibe traducir esta situacion.
Ej.
Envio: Mensaje1|Mensaje2
Al recibir:
v_mensaje_completo := Mensaje1|Mensaje2 ;
v_M1 := copy(v_mensaje_completo, 1, pos('|', v_mensaje_completo)-1);
v_M2 := copy(v_mensaje_completo, pos('|', v_mensaje_completo)+1, lenght(v_mensaje_completo));