Aqui les dejo una funcion para ejecutar como administrador con delphi - Basada en el code de Rudeboy1991 en vb6.0
{Nemesis - 07/04/2013}
ShellExecute(Handle, 'runas',pchar(application.exename), nil, nil, SW_SHOWNORMAL);
application.terminate
Espero les sirva
http://byronlabs.blogspot.com/