--- /HDA5/pi/CHROMuLan/Spectrum.pas	Tue Aug 28 19:41:20 2001
+++ Spectrum.pas	Fri Sep 14 22:27:46 2001
@@ -84,6 +84,9 @@
   {v0.50}
   , USPType, USPObju, SeqPrgu
   {/v0.50}
+  {v0.51pi}
+  ,ULDPType, ULDPObju
+  {/v0.51pi}
   ;
 
 type
@@ -4775,6 +4778,9 @@
   i, di: integer;
   ul: TULADObj;
   d: TULDRObj;
+  {v0.51pi}
+  prop: TULDPObj; {TULObj;}
+  {/v0.51pi}
   fnd: boolean;
   dm: TDeviceMode;
   delcnt: integer;
@@ -4808,10 +4814,20 @@
           ul.DataName := d.DeviceName;}
       end;
       ULAD[di].Addr := StrToInt(d.AddrStr);
+      {v0.51pi}
+      try {ClassGetPropStr(o, pi)}
+        if d.HasChildWithFieldUsrValue('PropDesc','ADCSAMPPER', TULObj(prop)) then
+        if prop<>nil then begin
+          ULAD[di].PointTimeInterval:=StrToInt(prop.ValueInPC);
+        end;
+      except
+      end;
+      {/v0.51pi
       if pos('REFR', Uppercase(d.DeviceName)) > 0 then begin
         ULAD[di].PointTimeInterval := 100;
-        {ULAD[di].YCoef := 1;}
+        (*ULAD[di].YCoef := 1;*)
       end;
+      }
     end;
   end;
   {/check for added devices}
