Source position: fpcustwsserver.pp line 35
type TWSSendToFilter = procedure(
AConnection: TWSServerConnection;
var aAllow: Boolean
) of object;