Mascara: !99.999.999;1;0
Edit1 en modo solo lectura. Te admitirá todos los rangos de RUT. Puedes ampliar la mascara para RUT más largos como 100.000.000-K -> !999.999.999;1;0
Código Delphi
[-]procedure TForm1.MaskEdit1Change(Sender: TObject);
Var RutParcial: ShortString;
begin
RutParcial := IntToStr(StrToInt(QuitaMiles(MaskEdit1.EditText)));
Edit1.Text:= '-' + DigitoVerificador(RutParcial);
end;
Hay que entender que el dígito verificador tiene su uso, que es justamente verificar. Esta unit te calcula el dígito cuando vas ingresando. Ahí tu ves como lo usas. Yo lo deje así, cosa que cuando ingresen el RUT (ingresar sin - ni dígito verificador), el usuario pueda comprobar si coincide el número verificador con el que le están indicando en el momento.
Adjunto Unit para competar
