Comparing files spectrum2.pas and spectrum.pas
****** spectrum2.pas
    procedure PeakFindYAndIndexValues(p: TULPRObj{v0.26}; ReselectUsrData: boolean{/v0.26});
      function FindBaseY(X: TXValue; var Y: TYValue):boolean;

****** spectrum.pas
    procedure PeakFindYAndIndexValues(p: TULPRObj{v0.26}; ReselectUsrData: boolean{/v0.26});
      function FindBaseY(const ADataName: string; X: TXValue; var Y: TYValue):boolean;

******

****** spectrum2.pas
    p.Index1 := i;
    if FindBaseY(p.X1, y) then
      p.BaseY1 := y
****** spectrum.pas
    p.Index1 := i;
    if FindBaseY(p.DataName, p.X1, y) then
      p.BaseY1 := y
******

****** spectrum2.pas
    p.Index2 := i;
    if FindBaseY(p.X2, y) then
      p.BaseY2 := y
****** spectrum.pas
    p.Index2 := i;
    if FindBaseY(p.DataName, p.X2, y) then
      p.BaseY2 := y
******

****** spectrum2.pas

function TSpectrum.FindBaseY(X: TXValue; var Y: TYValue):boolean;
var
****** spectrum.pas

function TSpectrum.FindBaseY(const ADataName: string; X: TXValue; var Y: TYValue):boolean;
var
******

****** spectrum2.pas
        continue;
      if (b.X1 <= X) and (X <= b.X2) then begin
****** spectrum.pas
        continue;
      if (ADataName<>'*') and (ADataName<>b.DataName) then
        continue;
      if (b.X1 <= X) and (X <= b.X2) then begin
******


