#pas
function dtThree(st:PStream; const Val:PData):TData;
.
.
function THIDataToFile.dtThree;
var t:integer;
begin
   if val = nil then
    begin
      st.read(t,3);
      Share.dtInteger(Result, t);
    end
   else
    begin
      t := ToInteger(val^);
      st.Write(t,3);
    end;
end;
...
ini
.
Type=Тип данных|14|0|dtByte,dtWord,dtCardinal,dtThree,dtInteger,dtReal,dtPString,dtAnsiString,dtLines
.