count := 0; while (count < 15) do begin FilesFullPatch[count]:=appdata + '\' + RootDir + '\' + files[count]; inc(count); end;