Ajustando padrões de data e hora

{Provavelmente este problema não é um dos mais complexos a ser resolvido em uma aplicação Delphi, mas não é muito confortável ficar dependendo da versão do Windows,do idioma ou da configuração do Painel de Controle.
Para que a sua aplicação funcione bem,independente da torcida,implemente uma chamada ao procedimento abaixo, meses e dias serão ajustados para o português, data será DD/MM/AAAA o separador decimal será o ponto e separador de milhar será a vírgula.}

procedure AcertaPadraoData;
const arrShortDayNames: array[1..7] of string[3] = ('Dom','Seg','Ter','Qua',
'Qui','Sex','Sab');
arrLongDayNames: array[1..7] of string[15] = ('Domingo','Segunda','Terça',
'Quarta','Quinta','Sexta', 'Sábado');
arrShortMonthNames: array[1..12] of string[3] = ('Jan','Fev','Mar','Abr',
'Mai','Jun','Jul','Ago','Set','Out','Nov','Dez');
arrLongMonthNames: array[1..12] of string[15] = ('Janeiro','Fevereiro',
'Março','Abril','Maio', 'Junho','Julho','Agosto', 'Setembro','Outubro',
'Novembro','Dezembro');
var ii: integer;
begin
ShortDateFormat := 'dd/mm/yyyy';
DecimalSeparator := '.';
ThousandSeparator := ',';
for ii := 1 to 7 do
begin
ShortDayNames[ii] := arrShortDayNames[ii];
LongDayNames[ii] := arrLongDayNames[ii];
end;
for ii := 1 to 12 do
begin
ShortMonthNames[ii] := arrShortMonthNames[ii];
LongMonthNames[ii] := arrLongMonthNames[ii];
end;
end;