1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

procedure Tmain.FormCreate(Sender: TObject);
begin
     server.Port := 1000;
     server.Open;
     Addlog('Proxy listen');
end;

procedure Tmain.serverClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
     Addlog('Client hat sich verbunden');

     client.Address := 'xxx.xxx.xxx.xxx';
     client.Port := 1000;
     client.Open;
end;

procedure Tmain.serverClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
     msg       : string;
begin
     msg := Socket.ReceiveText;

     //Warte bis Partnerverbindung aufgebaut ist (verhindert durch Firewall etc. )
     while server.Active = false do
     begin
          sleep(100);
          Application.ProcessMessages;
     end;

     addlog('proxy->server');
     client.Socket.SendText(msg);
end;

procedure Tmain.clientRead(Sender: TObject; Socket: TCustomWinSocket);
var
     msg       : string;
begin
     msg := Socket.ReceiveText;

     while client.Active = false do
     begin
          sleep(100);
          Application.ProcessMessages;
     end;

     addlog('proxy->client');
     Server.Socket.SendText(msg);
end;