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