Formatar Moeda

function TForm1.DisplayFormatter(AValue: double): String;
var
  loStr: string;
  loDouble: double;
begin
  loStr := FloatToStr(AValue);

  if loStr = EmptyStr then
    loStr := '0,00';

  loStr := Trim(StringReplace(loStr, '.', '', [rfReplaceAll, rfIgnoreCase]));
  loStr := Trim(StringReplace(loStr, ',', '', [rfReplaceAll, rfIgnoreCase]));

  loDouble := StrToFloat(loStr);
  loDouble := (loDouble / 100);

  Result := FormatFloat('#0.00', loDouble);
end;

procedure TForm1._OnTyping(Sender: TObject);
var
  iAux: Double;
begin
  if TryStrToFloat(TEdit(Sender).Text, iAux) then
    TEdit(Sender).Text := DisplayFormatter(iAux);

  TEdit(Sender).SelStart := Length(TEdit(Sender).Text);
end;