Perdón; No me fijé que era para Builder.
Otra opción es usar alguna de las librerías de TCP/Ip que hay; Eso te facilitará el trabajo. Indy, Synapse o ICS por nombrar alguna.
Aquí también puedes encontrar una solución.
Incluso
aquí, lo que parece ser una solución muy similar a la del truco, pero en Delphi.
Aquí otra; Y si sigues buscando supongo que encontrarás más...