Как я могу сделать Delphi, 2009 открывает мое приложение во втором мониторе по умолчанию?

Вот альтернатива, которая будет просто использовать последнюю строку / число, разделенную пробелом, независимо от того, сколько их, (если их нет, будет использоваться полное имя файла) !

И если вы хотите переместить только те из них, которые имеют хотя бы один пробел, вы можете включить это в For скобки.

@Echo Off
For %%A In ("D:\Sourcedir\* *.pdf") Do Call :L "%%A"
Exit /B

:L
Set "F=%~n1"
Set "F=%F: ="&Set "F=%"
If Not Exist "%~dp1%F%\" MD "%~dp1%F%"
Move /Y %1 "%~dp1%F%"