В схеме для установки кода завершения вызывается ExitProcess - программа просто завершает работу ещё до того, как консоль успеет считать вывод. Вывод срабатывает по чистой случайности - что в FPC, что Delphi.
Вот переделанный вариант - установка кода завершения без прерывания работы программы:
code_31449.txt