NetReceiveAssociateReject Example for Delphi

procedure TForm1.LEADDicomNet1NetReceiveAssociateReject (ASender: TObject;
  hNet: Integer; nResult, nSource, nReason: Smallint);
begin
    ShowMessage('Associate Request was rejected: Result= ' + IntToStr(nResult) + ' Source=' + IntToStr(nSource) + ' Reason=' + IntToStr(nReason));
end;