Source position: ssockets.pp line 148
type TForeachHandler = procedure(
Sender: TObject;
aClient: TSocketStream;
var aContinue: Boolean
) of object;