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á.

uses                          
  Classes, Graphics, Controls, Forms, Dialogs, Variants;

//Retornar mascara casas decimais                 
function RetornarCampoFormatadoStr(AValor: Extended; ADecimais: integer): string; 
var                    
  vMask: String;                                             
  vMaskBase: string;     
begin                            
 vMask := Copy(vMaskBase, 1, Pos('.', vMaskBase) -1);
  if ADecimais > 0 then             
    vMask := vMask + '.' + StringOfChar('0', ADecimais);
  if Pos(';', vMaskBase) > 0 then             
    vMask := vMask + Copy(vMaskBase, Pos(';', vMaskBase), 255);

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