NetReceiveAbort Example for Delphi

procedure TForm1.LEADDicomNet1NetReceiveAbort (ASender: TObject;
  hNet: Integer; nSource, nReason: Smallint);
begin
   ShowMessage('*** NetReceiveAbort Event ***' + Chr(13) +
               'Source = ' + IntToStr(nSource) + Chr(13) +
               'Reason = ' + IntToStr(nReason));
end;