Fórum Como fazer para que a Mascara Do MaskEdit Seja Automatica #273285

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    reg: TRegistry;
    formato: String;
begin
Reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKeyReadOnly(´Control Panel\International\´) then
    formato:=Reg.ReadString(´sShortDate´);
Reg.CloseKey;
Reg.Free;

MaskEdit.EditMask:=BuscaMascara(formato);
end;

function TForm1.BuscaMascara(formato: string): string;
var
    ret, dia, mes, ano: string;
    x: integer;
begin
formato:=LowerCase(formato);
dia:=´´;
mes:=´´;
ano:=´´;
for x:=1 to length(formato) do
    begin
    case formato[x] of
        ´d´: ret:=ret + ´0´;
        ´m´: ret:=ret + ´0´;
        ´a´: ret:=ret + ´0´;
        ´y´: ret:=ret + ´0´;
        ´/´: ret:=ret + ´/´;
        ´.´: ret:=ret + ´/´;
        ´-´: ret:=ret + ´/´;
    end;
    end;
BuscaMascara:=ret + ´;1;_´;
end;