Delphi: Run a program's uninstaller unattended

Your job is to write a function in Delphi: Function UninstallSoftware(Uninstaller : String) : Integer; The function will execute the given uninstaller program. By uninstaller program, I mean those uninstaller programs that ship with most software that are used to uninstall a program from one's computer. After the function has started the uninstaller program, the code will automatically click any possible Yes, OK or Next buttons of the uninstaller program and wait for the uninstallation to complete. The code must also have a timeout detection in which it will abort the wait in case the uninstaller doesn't seem to be doing anything. If the function detects no problem, it will return 1. If a problem occurs, it will return a numeric error code. The code must be compatible with Delphi version 2010 and the code must work in Windows XP and newer. If possible, please perform the clicking of the buttons of the uninstaller without moving the actual mouse cursor.