Problemas con ShellExecute

[Gregorio Cíber]

Hola amigos.
Tengo una vieja aplicación creada con Delphi6 funcionado correctamente.
Hace un tiempo tuve que modificarla e instale el compilador bajo Windows 10 y, con esfuerzos, logré poder compilar. Todo lo modificado funciona a excepción de una llamada al teclado virtual. Os pongo las distintas opciones que he probado a ver qué os parece:

Con osk.exe en C:\Windows\System32 la función ShellExecute devuelve 2, o sea, no lo encuentra.

Código Delphi [-]
ShellExecute (0, 'Open', 'osk.exe', '', '', SW_SHOWNORMAL); 
ShellExecute (Handle, 'Open', 'osk.exe', '', '', SW_SHOWNORMAL); 
ShellExecute (0, 'Open', 'osk.exe', '', 'C:\Windows\System32', SW_SHOWNORMAL); 
ShellExecute (Handle, 'Open', 'osk.exe', '', 'C:\Windows\System32', SW_SHOWNORMAL);

Lo mismo ocurre si utilizo PChar

Si copio osk.exe en la carpeta de la aplicación, la función SellExecute devuelve 43, es decir, lo encuentra pero no lo pone en pantalla.

¿Alguna idea?

Gracias.