1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Procedure pr_auswertung(befehl:string);
var i:integer; temp:string;
begin
i:=1;
  if befehl[i] = '/' then  
// man koennte noch extra abfragen einbauen nuetzlich ist auch
//funktion length(befehl) der sagt dann wie gross ist der String
         begin
             i := i+1;
              if befehl[i]= x then begin
                                           temp:=befehl[i+1];
                                           i:= i+2;
                                             if befehl[i]= '/' then 
                                             else begin // hier kann man noch weiter      //ausbauen aber ich denke hauptprinzip ist damit verstanden
                                                    end   
                                               x:= strtoint(temp);//am ende setzt man 
 // einfach den Wert fuer x und kann dann mit y fortfahren
                                          end;    
         end
  else
        pr_chat_message(befehl);//da wird auch geprueft ob das eine //message ist und von wem die kommt(pr 4 procedure)
end;					

1:

 WSAStartup(MAKEWORD(2,0), GInitData);					

1:

 WSAStartup(MAKEWORD(1,0), GInitData);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

FSocket: TSOCKET; 
addr   : TSockAddr;
InAddr: TInAddr;

addr.sin_addr := InAddr.s_addr := inet_addr(PChar(AddressEdit.Text)) //ich nehme aus dem edit die ip
addr.sin_port := htons(x); //hier sagen wir auf welchem Port wir connecten moechten x fuer beliebigen Port
FSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
//Sock_stream steht fuer tcp/ip da wir aber udp brauchen 
//muessen wir es in SOCK_DGRAM aendern!! 
//IPPROTO_IP fuer den Protokol ihr koennt die alle in winsock2.pas 
//sehen da steht auch ein comment dazu was dat sein soll
// hab nit so viel Ahnung :( 
connect(FSocket, @addr, sizeof(addr));// ja die connect Funktion

// am ende kann man da ganze schliessen mit 
     closesocket(FSocket);
// und die dlls ausladen mit 
WSACleanup					

1:
2:
3:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls;