- type test = class(TComponent)
- client: TClientSocket;
- procedure initialisieren;
- procedure clientRead(Sender: TObject; Socket: TCustomWinSocket);
- procedure clientConnect(Sender: TObject; Socket: TCustomWinSocket);
- procedure clientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
- end;