{ Declare System.SysUtils }
uses
System.SysUtils;
 
procedure TForm.PegarDataAtual;
var
sData: string;
begin
{ A função DateTimeToStr recebe uma data e converte para string }
sData := DateTimeToStr(now); // O Now é uma propriedade da classe System.SysUtils que contém a data e hora atual
// O retorno é: 07/06/2023 08:56:32
 
// Caso queira formatar essa data, poderá usar o StringReplace
{ StringReplace('StringOriginal', 'Caractere a ser trocado', 'Caractere para trocar', []) }
// Dentro dos colchetes você digitará opções de troca, as escolhas são:
 
// rfReplaceAll> Trocará todos os caracteres que forem exatamente iguais ao que voce escolheu
// Exemplo: vou trocar 'DELPHI' por 'X', caso na minha string tenha 'delphi', não substituirá porque não está em caixa alta
 
// rfIgnoreCase> Trocará todos os caracteres que forem iguais ao que voce escolheu independente da caixa dos caracteres
// Exemplo: vou trocar 'DELPHI' por 'X', caso na minha string tenha 'delphi', substituirá
 
sData := StringReplace(DateTimeToStr(now), '/', '.', [rfReplaceAll]);
sData := StringReplace(Data, ' ', '_', [rfReplaceAll]);
 
{ Nessa formatação, a data ficará assim: '07.06.2023_08:56:32' }
end;