Máš to vyriešené jednoducho pomocou Str(), potom naozaj nechápem prečo chceš použiť Format().

Ak potrebuješ Formátovať výstup:

function Float2String(r: Real): String;
var
  fs: TFormatSettings;
begin
  fs.DecimalSeparator:='.';
  Result := FormatFloat('### ###.##', r, fs);   //tiež si môžem zadefinovať koľko desatinných miest
end;