Como gravar e ler datas e horas no registro do Windows usando Delphi

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button4Click(Sender: TObject);
var
  reg: TRegistry;
  data_hora: TDateTime;
begin
  // uses Registry

  // vamos obter a data e hora atual
  data_hora := Now;

  // vamos criar uma instância da classe TRegistry
  reg := TRegistry.Create;

  // a chave padrão é HKEY_CURRENT_USER mas, por via das dúvidas
  // vamos reafirmar isso
  reg.RootKey := HKEY_CURRENT_USER;

  // vamos abrir ou criar um nova chave
  if reg.OpenKey('Arquivo de Códigos', True) then
    begin
      // vamos atualizar ou criar uma chave contendo a data
      // e hora atual
      reg.WriteDateTime('Data e Hora', data_hora);
      reg.CloseKey; // grava a chave e a fecha
    end
  else
    begin
      ShowMessage('Não consegui abrir ou criar a chave informada');
    end;

  // vamos liberar o registro 
  reg.Free;
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button5Click(Sender: TObject);
var
  reg: TRegistry;
  data_hora: TDateTime;
begin
  // uses Registry

  // vamos criar uma instância da classe TRegistry
  reg := TRegistry.Create;

  // a chave padrão é HKEY_CURRENT_USER mas, por via das dúvidas
  // vamos reafirmar isso
  reg.RootKey := HKEY_CURRENT_USER;

  // vamos abrir a chave criada anteriormente
  if reg.OpenKey('Arquivo de Códigos', False) then
    begin
      // vamos obter a data e hora gravada anteriormente
      try
        begin
          data_hora := reg.ReadDateTime('Data e Hora');
          ShowMessage('A data e hora armazenada é: ' + DateTimeToStr(data_hora));
        end
      except
        ShowMessage('A sub-chave não foi encontrada ou não ' +
          'possui um valor do tipo TDateTime');
      end;

      reg.CloseKey; // fecha a chave
    end
  else
    begin
      ShowMessage('Não consegui abrir a chave informada');
    end;

  // vamos liberar o registro 
  reg.Free;
end;