How Can I delete KEY in Registry?

procedure TMainForm.DeleteReg;
var reg2:TRegistry;
begin
//Delete the Android stuff

reg2:=TRegistry.Create(KEY_WRITE);
reg2.RootKey:= HKEY_CLASSES_ROOT;
reg2.Access := KEY_ALL_ACCESS;

reg2.DeleteKey('AndroidApplication\shell\Install Application\command');
reg2.DeleteKey('AndroidApplication\shell\Install Application');
reg2.DeleteKey('AndroidApplication\shell');
reg2.DeleteKey('AndroidApplication');
reg2.DeleteKey('.apk');
reg2.Free;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil) ;
end;

sumber: http://forum.lazarus.freepascal.org/index.php?topic=20919.0