Delphi - transferencias de archivos (otra vez)

para transmitir un archivo de una pc a otra, por TCP (idTCPServer) vi un ejemplo en la pagina personal de Diego Romero, el ejemplo es claro, pero como puedo guardar el archivo con el nombre original del que envio?

saludos

Una forma es enviar dos "paquetes de datos" . En el primero el nombre del archivo y en el segundo el archivo propiamente dicho.El receptor al recibir el primer paquete ya sabe el nombre del archivo y ya está.
Suerte

suena bien lo que propones, gracias