procedure FormatarData(DataDoUsuario : Date);
var
  sData : string;
  iX : integer;
begin
 
  sData := DateToStr(DataDoUsuario);
 
// Isto é opcional, só uma verificação se a data for vazia
  if (trim(sData) = '') or (sData.IsEmpty) then
  begin
    ShowMessage('Data vazia'); // Aqui você pode tratar como quiser a data vazia
    exit; // Eu só vou sair da procedure com o comando "Exit"
  end;
 
{ Caso o usuário Escreva
6/4/23
Iremos formatar para ficar
06/04/23 }
 
// A função "posex" encontra uma string dentro de outra string e returno em qual local da string está através de um index
// Nesse caso, estou a procura da '/' para ver se ele escreveu a data com o dia ou o mês com 1 caractere
// A função 'posex' tem os parametros (subString: string; StringOriginal : string; IndexInicial : integer = 0)
  X := posex('/', sData);
 
{ Esse if verifica se o dia tem um caractere
Por exemplo '6/04/23'
A função 'posex' irá retornar 2 pois a '/' está na segunda posição na string '6/'
Lembrando que a string sempre começa com o index 1, então a barra estaria com o index 2
}
  if X = 2 then
    s := '0' + sData; // Nessa linha Adiciona um 0 no inicio da string, então ficaria assim '06/04/23'
 
{ Este if verifica o mês
Mas dessa vez passaremos o caractere de inicio na posição 4
por exemplo '06/4/23'
A função posex começará a verificar pelo número 4
exemplo 2: '6/4/23'
A função posex começará a verificar encima da segunda '/', e retornará 1
}
  X := posex('/', sData, 4);
 
// Esse if verifica se a data está com 1 caractere no mês '06/4/23'
  if X = 5 then
    Insert('0', sData, 4);
 
// A função Insert, insere uma string dentro de outra de acordo com uma posição
// Nesse exemplo a função irá inserir a string '0' dentro da string sData começando pela posição 4
// que no meu caso fica assim '06/04/23
 
end;

var
  sData : string;
begin
 
  sData := DateToStr(DataDoUsuario);
 
// O comando copy usaremos para copiar o dia e o mês da data americana e colocaremos na posição da data brasileira
 
  sData := copy(sData, 4, 2) + '/' + copy(sData, 1, 2) + '/' + copy(sData, 7, 4);
// A nossa data irá ser formatada para 'dd/mm/aaaa'
 
end;

var
  sData : string;
begin
 
  sData := DateToStr(DataDoUsuario);
 
// Caso o usuário tenha escrito a data com só uma '/', iremos retirar-lá
  sData := StringReplace(s, '/', '', [rfReplaceAll]);
 
// Após, inserimos as / nos locais corretos da data
  Insert('/', sData, 3);
  Insert('/', sData, 6);
end;