Delphi - Converter uma valor em real

Olá pessoal, abaixo uma função simples para converter um valor. É muito utilizada para display na tela.

{ Functions }
function fConvertValue(Value: string): string;
begin
Result := '';
if (pos('.', Value) = 0) then
begin
if (Value <> '') then
begin
Value := FormatFloat('##,##0.00', StrToFloat(Value));
Result := Value;
end;
end
else
begin
Value := StringReplace(Value,'.','', [rfReplaceAll]);
Result := Value;
end;
end;