TDirectory.GetFiles no recursive search

FPC [main]

---

program test;
uses
  System.IOUtils;

var
  filename: string;

begin
  for filename in TDirectory.GetFiles('.', '*', TSearchOption.soAllDirectories) do
    WriteLn(filename);

  Readln;
end.

D12.1CE - there is a recursive search through subfolders
FPC - there is no

It looks like this line: https://gitlab.com/freepascal.org/fpc/source/-/blob/5408f4eee64074ec9810a9b8c674370e25d02f5e/packages/vcl-compat/src/system.ioutils.pp#L2483