1:
2:
3:
4:
5:
6:
7:

function NeueNull(s:string):string;
var i:integer;
begin
  result:='';
  for I := 1 to length(s) do
    result:=result+s[i]+#00;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

function FileToString(const FileName: string): AnsiString;
var
  fs: TFileStream;
  Len: Integer;
begin
  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    Len := fs.Size;
    SetLength(Result, Len);
    if Len > 0 then
      fs.ReadBuffer(Result[1], Len);
  finally
    fs.Free;
  end;
end;

procedure StringToFile(const FileName: string; const Contents: AnsiString);
var
  fs: TFileStream;
  Len: Integer;
begin
  fs := TFileStream.Create(FileName, fmCreate);
  try
    Len := Length(Contents);
    if Len > 0 then
      fs.WriteBuffer(Contents[1], Len);
  finally
    fs.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

var regname,rootdir,bufferrootdir,buffernewroot:string;
...
      bufferrootdir:=stringreplace(rootdir,'\','\\',[rfReplaceAll]);
      bufferrootdir:=neuenull(bufferrootdir);
      buffernewroot:=stringreplace(sysutils.GetCurrentDir+'\Portable Delphi\Files\Delphi7','\','\\',[rfReplaceAll, rfIgnoreCase]);
      buffernewroot:=neuenull(buffernewroot);
      StringtoFile(sysutils.GetCurrentDir+'\Portable Delphi\registry.REG',stringreplace(Filetostring(sysutils.GetCurrentDir+'\Portable Delphi\registry.REG'),bufferrootdir,buffernewroot,[rfReplaceAll,rfIgnoreCase]));
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function FilterNull(const S: String): String;
  var
    i,j: Integer;
begin
  Result := S;
  j := 0;
  for i := 1 to Length(S) do
    if (Result[i] <> #0) then begin
      Inc(j);
      Result[j] := Result[i];
    end;
  SetLength(Result,j);
end;					

1:
2:
3:
4:
5:
6:
7:

00000000  FF FE 57 00 69 00 6E 00 64 00 6F 00 77 00 73 00  ÿþW·i·n·d·o·w·s·
00000010  20 00 52 00 65 00 67 00 69 00 73 00 74 00 72 00   ·R·e·g·i·s·t·r·
00000020  79 00 20 00 45 00 64 00 69 00 74 00 6F 00 72 00  y· ·E·d·i·t·o·r·
00000030  20 00 56 00 65 00 72 00 73 00 69 00 6F 00 6E 00   ·V·e·r·s·i·o·n·
00000040  20 00 35 00 2E 00 30 00 30 00 0D 00 0A 00 0D 00   ·5·.·0·0·······
00000050  0A 00 5B 00 48 00 4B 00 45 00 59 00 5F 00 43 00  ··[·H·K·E·Y·_·C·
00000060  4C 00 41 00 53 00 53 00 45 00 53 00 5F 00 52 00  L·A·S·S·E·S·_·R·					

1:
2:

00000000  52 45 47 45 44 49 54 34 0D 0A 0D 0A 5B 48 4B 45  REGEDIT4····[HKE
00000010  59 5F 43 4C 41 53 53 45 53 5F 52 4F 4F 54 5C 2E  Y_CLASSES_R