Перевод примера работы с реестром с дельфей на билдер

#include <vcl.h>
#pragma hdrstop
#include <registry.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRegistry *reg18 = new TRegistry();
reg18->RootKey=HKEY_CURRENT_USER;
reg18->OpenKey("Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders",false);
AnsiString tess;
if (reg18->ValueExists("Text")) {
tess=reg18->ReadString("Text");
Memo1->Lines->Add=(tess); }
reg18->CloseKey();
reg18 = NULL;
delete reg18;
 
//  reg : TRegistry;
//  ts : TStrings;
//  i : integer;
//  begin
//  reg := TRegistry.Create;
//  reg.RootKey := HKEY_CURRENT_USER;
//  reg.LazyWrite := false;
//  reg.OpenKey(
//  'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',
//  false);
//  ts := TStringList.Create;
//  reg.GetValueNames(ts);
//
//  for i := 0 to ts.Count -1 do begin
//  Memo1.Lines.Add(ts.Strings[i] +
//                      ' = ' +
//  reg.ReadString(ts.Strings[i]));
//  end;
//  ts.Free;
//  reg.CloseKey;
//  reg.free;
//  end;
}

Memo1->Text=(tess);

Memo1->Lines->Add(tess);