Tranfer a message between two PCs through telephone line

[hadipardis]

I want to send and receive a message between two PCs through telephone line. In fact, the Master system should dial a tel number to conncect to the slave PC. To do so, I know that we can use TSocket or any other relevant cases but how we can dial a telephone number in Delphi and how we can create a small network between these two PCs?
If we can stablish such a network and obtain the IP address of these PCs then we can solve this problem. Now, do you have any idea to do so?
Thanks