NetReceiveCCancelRequest Example for Delphi

procedure TForm1.LEADDicomNet1NetReceiveCCancelRequest(ASender: TObject;
  hNet: Integer; nPresentationID, nMessageID: Smallint);
begin
   //note, this sample AE ignores C-CANCEL-REQUEST commands for simplicity
   ShowMessage('C-CANCEL-REQUEST was received - ' + LEADDICOMNet1.GetPeerAddress (hNet));
end;