Et ça doit déjà être ce bloc:

                if (Length (Temp) <= 0) or (Length (Temp) > 30) or (Pos (' ', Temp) > 0) or (Pos ('TEMP', UpperCase (Temp)) <= 0) then begin 
                        GetWindowsDirectory (TempDir, SizeOf (TempDir)); 
                        Temp := WithBackslash (AnsiString (TempDir)) + 'TEMP\'; 
                        if not DirExists (Temp) then try 
                                MkDir (Temp); 
                        except end; 
                end;

qui est activé et cause probablement le problème avec l'UAC (%WINDIR%\Temp\ doit être protégé).