Una mascara para un edit 0.0.00.000

[[egostar]]

Hola, que tal si buscas en la ayuda la función FormatMaskText()

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := FormatMaskText('0.0.00.000;0;*','1234567');
end;

Salud OS

Edito: O en un MaskEdit coloca esta mascara :;

0.0.00.000;0;_

Salud OS