NetNonSecureSendISCL Example for Delphi

procedure TForm1.LEADDicomNet1NetNonSecureSendISCL (ASender: TObject; hNet,
  nError, nType, nLength: Integer);
begin
   if(nError = DICOM_SUCCESS)then
      ShowMessage('Data was successfully received');
end;