Configurar a maquina para padrão brasileiro

Pessoal para quem precisa setar as configurações do windows seque exemplo:

procedure SetPadraoBrasil;
var
Reg : TRegistry;
Reiniciar: Boolean;

Begin
Reiniciar := False;
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;

if Reg.OpenKey('\Control Panel\International', False) then
begin
// se for Windows 95 ou 98 e o Decimal for diferente de , -OU- Thousand for diferente de . tem que
// reiniciar o Windows para poder aplicar as alterações

if GetVersaoWindows in [vw95, vw98] then
Reiniciar := (Reg.ReadString('sThousand') <> '.') or (Reg.ReadString('sDecimal') <> ',');

Reg.WriteString('sShortDate' , 'dd/MM/yyyy');
Reg.WriteString('sDecimal' , ',');
Reg.WriteString('sThousand' , '.');
Reg.WriteString('sMonDecimalSep' , ',');
Reg.WriteString('sMonThousandSep' , '.');
Reg.WriteString('sTimeFormat' , 'HH:mm:ss');
Reg.WriteString('sTime' , ':');
DecimalSeparator := ',';
ThousandSeparator := '.';
ShortDateFormat := 'dd/MM/yyyy';
end;
FreeAndNil(Reg);
end;