program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Generics.Collections,
  Generics.Defaults;

var
  FComparer: TDelegatedComparer<String>;

begin
  ReportMemoryLeaksOnShutdown := True;
  try

    FComparer := TDelegatedComparer<String>.Create(
      function(const Left, Right: String): Integer
        function __GetSubName(const AFileName: String): String;
        var
          APos: Integer;
        begin
          Result := ExtractFileName(AFileName);
          APos := Pos('_', Result);
          if APos > 0 then
            Delete(Result, 1, APos);
          if Result = '' then
            Result := ExtractFileName(AFileName);
        end;
      begin
        Result := AnsiCompareText(__GetSubName(Left), __GetSubName(Right));
      end
    );
    try
      //TArray.Sort<String>(FFiles, FComparer);
    finally
      FreeAndNil(FComparer);
    end; // *)
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.