Client-/ServerSocket Port-problem

[Illuminator-23-5]

hi! ich wollt mir grad ein kleines tool schreiben, mit TServer-und TClientSocket. das ziel ist folgendes:
ein formular hat je eine von den beiden sockets; Server.Active=true
Das programm wird 2x gestartet, per Button kann man den Client mit dem Server verbinden - und da beginnt das problem: wie muss ich dir ports vergeben? ich möcht ja nicht, dass sich das ClientSocket von Prog1 mit dem ServerSocket von Prog1 verbindet, sondern mit dem von Prog2!!! Aber wie soll ich die ports vergeben??
ich hab mir gedacht, dem Client geb ich den Port 300(z.B.), und dem Server 301
aber nun haben auch beim 2. Programmstart Client.Port=300; Server.Port=301, obwohl es umgekehrt sein müsste! wie kann ich das machen, dass ich weis, wie ich die ports vergeben soll???