1:
2:
3:
4:
5:
6:
7:

procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1 := TClientSocket.Create(Form1);
ClientSocket1.OnConnect [u]:=<span style="color: red">DynConnectEvent</span>;[/u]
ClientSocket1.Port := MY_Port;
ClientSocket1.Active := TRUE;
end;					

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

unit Unit_v0_01Beta;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls, XPMan, jpeg, ExtCtrls;

procedure FormCreate(Sender: TObject);
    procedure Form1.DynConnectEvent(Sender: TObject; Socket: TCustomWinSocket);
     //hir ist ein Fehler "Ungenügende Forward- oder Externale-Deklaration:'TForm1.DynConnectEvent'

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientSocket1 := TClientSocket.Create(Form1);
  ClientSocket1.OnConnect :=DynConnectEvent; // und hir auch
  ClientSocket1.Active := TRUE;
  ClientSocket1.Port := 73954;
end;

end.					

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure DynConnectEvent(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private-Deklarationen }
  public
    ClientSocket1: TClientSocket;
  end;

//...

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientSocket1 := TClientSocket.Create(Form1);
  ClientSocket1.OnConnect := DynConnectEvent;
  ClientSocket1.Port := 12345; // Portnummer muss im Bereich 1025..65535 sein!
  ClientSocket1.Active := TRUE; // erst Port setzen, dann öffnen!
end;

procedure TForm1.DynConnectEvent(Sender: TObject; Socket: TCustomWinSocket);
begin
  ShowMessage('Connect');
end;					

1:
2:
3:

Client.Socket.SendText('starten.xy');
Client.Socket.SendText('pause.xy');
Client.Socket.SendText('beenden.xy');					

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:

Scan taken on 24 Aug 2008 13:19:52 (GMT)  
A-Squared             Found nothing 
AntiVir               Found TR/ATRAPS.Gen  
ArcaVir               Found nothing 
Avast                 Found nothing 
AVG Antivirus         Found nothing 
BitDefender           Found nothing 
ClamAV                Found nothing 
CPsecure              Found nothing 
Dr.Web                Found nothing 
F-Prot Antivirus      Found nothing 
F-Secure Anti-Virus   Found nothing 
Fortinet              Found nothing 
Ikarus                Found nothing 
Kaspersky Anti-Virus  Found nothing 
NOD32                 Found nothing 
Norman Virus Control  Found Sandbox: W32/Malware;

[ General information ]

* File length: 163328 bytes.

[ Changes to registry ]
* Accesses Registry key "HKCU\Software\Borland\Locales".
* Accesses Registry key "HKLM\Software\Borland\Locales".
* Accesses Registry key "HKCU\Software\Borland\Delphi\Locales".

[ Security issues ]
* Scans for NetBus affected machines.

[ Process/window information ]
* Creates an event called .  

Panda Antivirus       Found nothing 
Sophos Antivirus      Found nothing 
VirusBuster           Found nothing 
VBA32                 Found nothing