¿Como enviar un Record mediante un Socket?

[jednavlop]

Hola, que tal, tengo algunas ligeras dudas, espero puedan ayudarme.

He estado usando los componentes TClientSocket y TServerSocket para comunicar dos aplicaciones y
me he encontrado con algunos problemas:

1. Si envio por ejemplo los textos "Mensaje1" y "Mensaje2" el servidor termina recibiendo el texto "Mensaje1Mensaje2", ¿Como podria solucionar esto?
2. ¿Como podria enviar una variable de tipo Record.

De antemano gracias.