Eu criei um aplicativo de console e defina ReportMemoryLeaksOnShutdown: = True.

Criei um TStringList, mas não o libertei.

Quando o programa termina a execução, vejo o vazamento de memória por um breve segundo, mas o console é fechado.

Eu tentei adicionar um ReadLn; até o fim, mas só mostra uma janela em branco do console quando faço isso, o que faz sentido.

Preciso encontrar uma maneira de pausar a execução após o relatório de vazamento de memória, mas antes do desligamento completo do programa.

Estou usando o Delphi 10 Seattle.

program Project1;

{$APPTYPE CONSOLE}

uses
  System.Classes,
  System.SysUtils;

var
  s : TStringList;

begin
  try
    ReportMemoryLeaksOnShutdown := True;
    s := TStringList.Create;

    //ReadLn doesn't work here, which makes sense.
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  //I need to be able to pause the program somewhere after the end statement here.
end.