Mil gracias, ya lo he solucionado, y por cierto muy buena manera de resolver el problema.
Por si alguien tubiera el mismo problema queda resuelto incluyendo en el uses del proyecto esta unidad que os podeis descargar:
http://www.clubdelphi.com/users/roman/uiapp.pas