Проблемы преобразования типа Real в FPC

Function RealToStr(Value : Real) : String;
Begin
 RealToStr:=Chr(Mem[Seg(Value):Ofs(Value)+0])+
 Chr(Mem[Seg(Value):Ofs(Value)+1])+
 Chr(Mem[Seg(Value):Ofs(Value)+2])+
 Chr(Mem[Seg(Value):Ofs(Value)+3])+
 Chr(Mem[Seg(Value):Ofs(Value)+4])+
 Chr(Mem[Seg(Value):Ofs(Value)+5]);
end;
Function StrToReal(Value : String) : Real;
Var RealValue : Real;
Begin
 If Length(Value)<>6 Then StrToReal:=0.0 Else
 Begin
  Mem[Seg(RealValue):Ofs(RealValue)+0]:=Ord(Value[1]);
  Mem[Seg(RealValue):Ofs(RealValue)+1]:=Ord(Value[2]);
  Mem[Seg(RealValue):Ofs(RealValue)+2]:=Ord(Value[3]);
  Mem[Seg(RealValue):Ofs(RealValue)+3]:=Ord(Value[4]);
  Mem[Seg(RealValue):Ofs(RealValue)+4]:=Ord(Value[5]);
  Mem[Seg(RealValue):Ofs(RealValue)+5]:=Ord(Value[6]);
  StrToReal:=RealValue;
 end;
end;