Instalar BDE

Useu o código abaixo, mas depis que executa o código ocorre EAccessViolation. alguém sabe como evitar, eu usei closekey, e quase deu certo. se souberem contatem me: tiocassio@ig.com.br , valeu!!!

var r: tregistry;

with r do begin
RootKey := HKEY_LOCAL_MACHINE;
CreateKey(´SOFTWARE\Borland\Database Engine´);
OpenKey(´SOFTWARE\Borland\Database Engine´, False);
WriteString(´DLLPATH´, dir+´\´);
WriteString(´CONFIGFILE1´, dir+´\IDAPI32.CFG´);
OpenKey(´\´, False);
CreateKey(´SOFTWARE\Borland\BLW32´);
OpenKey(´SOFTWARE\Borland\BLW32´, False);
WriteString(´BLAPIPATH´, dir+´\´);
WriteString(´LOCALE_LIB1´, dir+´\USA.BTL´);
WriteString(´LOCALE_LIB2´, dir+´\EUROPE.BTL´);
end;