Indy 9
Example
TIdConnectionIntercept.Send
  if Intercept.SendHandling then
  begin
    nByteCount := Intercept.Send(ABuffer^, StrLen(ABuffer));
  end
  else
  begin
    DefaultSend;
  end;

Created with Doc-O-Matic 2 donated to Project JEDI. Commercial license available from the Doc-O-Matic site.