Retornar campo formatado

Modelo de função para retornar o campo formatado em String. Para usá-lo faça o seguinte:

Pressione o atalho de teclado CTRL + M
Em seguida procure pela função RetornarCampoFormatadoSTR
Pressione a tecla ENTER e o seguinte código aparecerá.

//Documentação:
//https://nimitz.atlassian.net/wiki/spaces/DPU/pages/edit-v2/3748724791  
uses                          
  Classes, Graphics, Controls, Forms, Dialogs, System;
                   
//Retornar mascara casas decimais                 
function RetornarCampoFormatadoStr(AValor: Extended; ADecimais: integer): string; 
var                          
  vMask: String;         
const                      
  _cMaskNum   = ',0.00;;#'; 
begin    
  vMask := Copy(_cMaskNum, 1, Pos('.', _cMaskNum) -1);
  if ADecimais > 0 then             
    vMask := vMask + '.' + StringOfChar('0', ADecimais);    
  if Pos(';', _cMaskNum) > 0 then             
    vMask := vMask + Copy(_cMaskNum, Pos(';', _cMaskNum), 255);

  Result := FormatFloat(Copy(vMask, 1, 224), AValor);  
end;