Delphi - Formatanto um Valor Numérico em Estilo Moeda

Você pode apresentar os valores numéricos monetários da sua aplicação de maneira mais profissional com a função FormatFloat. Veja o exemplo abaixo:

Sintaxe da função FormatFloat: FormatFloat('###,###,##0.00', Variavel Numérica);
Onde: Variável Numérica deve ser uma variável do tipo Real ou Currency (existem outros tipos aceitos mas esses dois são os mais utilizados).

A seguir um exemplo prático de como implementar a função utilizando um componente Button:

procedure TForm1.Button1Click(Sender: TObject);
var
    TotalPgto: Currency;
begin
    TotalPgto := 1000;
    Label1.Caption := 'R$ ' + FormatFloat('###,###,##0.00', TotalPgto);
end;

O componente Label1 através da sua propriedade Caption irá exibir o valor da seguinte forma: R$ 1.000,00