Reverse TCP Tunnel in Delphi or C++

I need a Reverse TCP Tunnel that allow me to connect to services behind firewalls / NAT , it should be a command line tool and i want the source code it should be consisted of 2 parts , Tunnel and Portal it should work the Following : 1)Assuming I have 1 machines A (my machine) and B (user machine behind NAT , router ect) 2) Assuming a Proxy on port 3333 is running on machine B Program Design and work : 1) Tunnel Portal Should Run on machine A , Listening on 2 Ports (C and D) 2)Tunnel application running on Machine B , should connect to Proxy on localhost on 3333 , and should connect to Machine A IP on Port (C) . 3) Browser (IE) should use Socks to Connect to [login to view URL] on Port D (it will be connected though the Proxy on Machine B) to have a better idea please check the following example : [login to view URL]