1, 2 соотвтетствуют 3.167
 2, 6 соотвтетствуют 6.453

TRec =
 FA, FB: Integer;
 FValue: Double;
end;

Table: array[0&#1331] of Integer = (0, 1);

 SamplingFrequencyTable: array[0&#1331] of TSamplingFrequencyCorrespondence =
 (
   (DeviceType: $0103; DeviceVersion: $0500; SamplingFrequency: 97656.25/2;),
   (DeviceType: $0104; DeviceVersion: $0300; SamplingFrequency: 97656.25;)
 );

Type
TDeviceType =
(
  dtDXS = $0103, {ДХС — что это значит не знает даже тот кто придумал эту аббривеатуру.}
  dtDPS = $0104  {ДПС — анналогично.}
);

TSamplingFrequencyCorrespondence = record
  DeviceType: TDeviceType;
  DeviceVersion: Word;
  SamplingFrequency: Double;
end;

PSFC=^TSFC;
TSFC=TSamplingFrequencyCorrespondence; // умру писать полное название

TSFCList=Class
Private
 m_theItems:TStringList;

 Function lcGetCount:Integer;
 Function lcGetItem(p_nIndex:Integer):PSFC;
 Function lcGetItemBy(p_etDevType:TDeviceType;p_nVer:Word):Double;
Public
 Constructor Create;
 Destructor Destroy; Override;

 Property Count:Integer Read lcGetCount;
 Property ByTypeAndVer[etDevType:TDeviceType;nVer:Word]:Double Read lcGetItemBy; Default;
 Property Items[nIndex:Integer]:PSFC Read lcGetItem;

 Function Add(p_rSFC:TSFC):Integer; Overload;
 Function Add(p_rSFC:PSFC):Integer; Overload;
 Procedure Delete(p_nIndex:Integer);
 Procedure Clear;
End;

Function TSFCList.lcGetCount;
Begin
Result:=m_theItems.Count;
End;

Function TSFCList.lcGetItem;
Begin
Result:=PSFC(m_theItems.Objects[p_nIndex]);
End;

Function TSFCList.lcGetItemBy;
Var
n:Integer;
Begin
If Not m_theItems.Find(IntToStr(Integer(p_etDevType))+#9+IntToStr(p_nVer),n)
 Then Raise EListError.Create('а нету')
 Else Result:=Items[n].SamplingFrequency;
End;

Constructor TSFCList.Create;
Begin
m_theItems:=TStringList.Create;
m_theItems.Sorted:=True;
End;

Destructor TSFCList.Destroy;
Begin
Clear;
m_theItems.Free;
End;

Function TSFCList.Add(p_rSFC:TSFC):Integer;
Var
r:PSFC;
Begin
New(r);
r^:=p_rSFC;
Result:=Add(r);
End;

Function TSFCList.Add(p_rSFC:PSFC):Integer;
Var
s:String;
Begin
With p_rSFC^ Do s:=IntToStr(Integer(DeviceType))+#9+IntToStr(DeviceVersion);
If m_theItems.IndexOf(s)<>-1
 Then Raise EListError.Create('а уже есть')
 Else Result:=m_theItems.AddObject(s,TObject(p_rSFC));
End;

Procedure TSFCList.Delete;
Begin
Dispose(PSFC(m_theItems.Objects[p_nIndex]));
m_theItems.Delete(p_nIndex);
End;

Procedure TSFCList.Clear;
Begin
While m_theItems.Count<>0 Do Delete(0);
End;