How to make websocket Read from a delphi application socket

Question

I implemented Websockets in my server, it works great to communicate with the server itself, but it cannot connect directly do my Delhpi application, so I thought, "I'll just make Delphi send info to PHP, then make PHP push info to the client via Websocket!", GREAT! but it doesn't work.

I'm not sure why, but I think it has something to do with 2 sockets cannot be listening at the same time, so I think I need to use Threads or something like that.

On paper it looks easy, it looks like I just need to start a Thread with my function listening my Delphi application socket, and when it receives a message, I would send this to the parent process to push the message via websocket, but I cant help it but feel like there is something wrong with this tactic.

This is the code that reads from the socket of my Delphi app:

 <?php
/* Cliente */

function enviarPct($skt, $pacote){
    $msg = "$pacote\n";
    socket_write($skt, $msg, strlen($msg));
    echo "TX: $msg";
}

error_reporting(E_ALL);

echo "Conexao TCP/IP em PHP\n";

$address = "192.168.2.26";
$port = 63333;
$sock = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
socket_connect($sock, $address, $port);
socket_set_option($sock, SOL_SOCKET, SO_KEEPALIVE, 1);
echo "Conexao: $address:$port\n\n";

enviarPct($sock,"login||20||");
//$msg = "login||20||\n";
//echo socket_write($sock, $msg, strlen($msg));
//echo socket_write($sock, utf8_encode($msg), mb_strlen($msg, 'utf-8'));

echo "Reading response:\n\n";
while ($out = socket_read($sock, 2048)) {
    echo "RX: $out";
    $pct = explode('||', $out);
      if($pct[0]=='sucessoLogin'){
        if($pct[1]!= '-1'){
            enviarPct($sock, "solicitaControladoras||||");
        }
      }
}

//echo socket_read($sock, 2048);

echo "Fechando\n";
socket_close($sock);
?>

And Within the websocket aplication class, this funcion push messeges to the client, more specificaly that looping with "Im Waiting X Seconds"

/**
 * Start a child process for pushing data
 * @param unknown_type $client
 */
private function startProcess($client) {
    $this->console("Start a client process");
    $pid = pcntl_fork();
    if($pid == -1) {
        die('could not fork');
    }
    elseif($pid) { // process
        $client->setPid($pid);
    }
    else {
        // we are the child
        while(true) {

            // check if the client is connected
            if(!$client->isConnected()){
                break;
            }

            // push something to the client
            $seconds = rand(2, 5);
            $this->send($client, "I am waiting {$seconds} seconds");
            sleep($seconds);
        }
    }
}

So thats it, if somebody have an idea of what would work best for me I would be glad to listen.