No Demo do TEF, acabei não usando esse Método em específico, no Demo do TEF.. mas usei o FormatarMascaraDinamica
procedure TFormObtemCampo.edtRespostaChange(Sender: TObject);
var
AValor: Int64;
TextVal: String;
begin
if (fTipoCampo in [tcoCurrency, tcoDecimal]) then
begin
AValor := StrToIntDef(OnlyNumber(edtResposta.Text), 0);
TextVal := FormatFloatBr(AValor/100, FloatMask(2, (fTipoCampo = tcoCurrency)));
if (fTipoCampo = tcoCurrency) then
TextVal := 'R$ '+TextVal;
edtResposta.Text := TextVal;
edtResposta.SelStart := Length(edtResposta.Text);
end
else if (fMascara <> '') then
begin
edtResposta.Text := FormatarMascaraDinamica( RemoverMascara(edtResposta.Text, fMascara), fMascara);
edtResposta.SelStart := Length(edtResposta.Text);
end;
end;
Um Exemplo de máscara para Datas, seria: "**/**/**"
A ideia é que as Barras apareçam, conforme a digitação do usuário...