Delphi - Mandando archivos con TServerSocket puedo hacer...

Mandando archivos con TServerSocket puedo hacerlo mediante la propiedad SendStream, resulta que envio un archivo al otro host, pero este archivo llega sin nombre en el host remoto, y alla tengo que asignarle un nombre, no se que hacer para reconocer que archivo es, y pense enviar un SendText primero para especificar que archivo estoy mandando, pero resulta que el host remoto no sabe distinguir si le llegan un Stream o un Texto, me gustaria saber como distinguir eso, y si hay otra solucion, poder encontrarla, les agradeceria su ayuda.

chau gracias

pon en onread un if
data:=socket.receivetext;
if copy(data,0,4)='NOMB' then
nombrearchivo:=copy(data,5,length(data))
//aca se recive el nombre
else
//aqui se recive el archivo

ojala te sirva.