if not DirectoryExists(strFolder) then begin
         CreateDir(strFolder);
         strNewFile := (strFolder + '\' + strProg);
         CopyFile('w:\FOLDER\myProg.exe',PChar(strNewFile),False);
         strNewFile := (strFolder + '\lha.exe');
         CopyFile('w:\FOLDER\lha.exe',PChar(strNewFile),False);
         strNewFile := (strFolder + '\rar.exe');
         CopyFile('w:\FOLDER\rar.exe',PChar(strNewFile),False);
         intFolder :=  1 ;   
      end;