Si te fijas un poco en el hilo anterior, yo creo que la solución es evidente.
En el hilo anterior convertíamos un String en PChar de la siguiente manera:
Código Delphi
[-]
function StrToSingle(Str: String): Single;
begin
if length(Str) = 4 then
Result:= PSingle(@Str[1])^
else
Result:= 0;
end;
Asi que si aplicamos el paso inverso:
Código Delphi
[-]
function SingleToStr(S: Single): String;
begin
Result:= StringOfChar(#0,4);
PSingle(@Result[1])^:= S;
end;