pascalscript

It has been around 20 years since I last had to write in Pascal. I can't seem to use the structure elements of the language correctly where I am nesting if then blocks using begin and end . For example this gets me an Compiler Error "Identifier Expected" . procedure InitializeWizard; begin Log('Initialize Wizard'); if IsAdminLoggedOn then begin SetupUserGroup(); SomeOtherProcedure(); else begin (*Identifier Expected*) Log('User is not an administrator.'); msgbox('The current user is not administrator.', mbInformation, MB_OK); end end; end; Of course if I remove the if then block and the begin

Is there any way to browse and recursively copy/move all files and subdirectories of a directory within the code section? ( PrepareToInstall ) I need to ignore a specific directory, but using xcopy it ignores all directories /default/ , for example, and I need to ignore a specific only. The Files section is executed at a later time when needed. Martin Prikryl To recursively copy a directory programmatically use: procedure DirectoryCopy(SourcePath, DestPath: string); var FindRec: TFindRec; SourceFilePath: string; DestFilePath: string; begin if FindFirst(SourcePath + '\*', FindRec) then begin