Manejo de un maskedit

[ecfisa]

Hola Vlady.

No se me ocurre manera de hacerlo con un TMaskEdit, pero podrías hacerlo con
un TEdit.

Algo como:

procedure TForm1.Edit1Exit(Sender: TObject);
var
  i: byte;
  c: byte;
  s: string;
begin
  c:= 0;
  s:= '';
  for i:= Length(Edit1.Text) downto 1 do
  begin
    s:= s + Edit1.Text[i];
    inc(c);
    if (c = 3)and(i > 1) then
    begin
      s:= s + '.';
      c:= 0;
    end;
  end;
  Edit1.Text:= '';
  for i:= Length(s) downto 1 do
       Edit1.Text:= Edit1.Text + s[i];
end;

Saludos.