Я о чём то подобном догадывался, но не знал нюансов.

Вот чего у меня получилось после упрощения:
function THIDataToFileEx.dtReal;
var fl:single;
begin
if val = nil then
begin
st.read(fl,sizeof(single));
Share.dtReal(Result,fl);
end
else
begin
fl := ToReal(val^);
st.Write(fl,sizeof(single));
end;
end;
Но не понятно как избавится от чтения и записи в поток?
Делать через поток слишком громоздко.
Надо подумать, может быть сделать на ассемблере Str2Single и наоборот.
И где можно посмотреть про Share.XXXXXX?