NetReceiveAssociateAccept Example for Delphi

procedure TForm1.LEADDicomNet1NetReceiveAssociateAccept (ASender: TObject;
  hNet, hPDU: Integer);
begin
    ShowMessage('Associate Accept Received - ' + BoolToStr(LEADDICOMNet1.IsAssociated (hNet)));
end;