Source position: fpcustwsserver.pp line 40
type TConnectionIterator = procedure(
aConnection: TWSServerConnection;
var aContinue: Boolean
) of object;