Специфическое автообновление

procedure TFGeneral.updatePROG; // процедура обновления
var strim:tmemorystream;  // переменная стрима
begin
try
strim:=TMemoryStream.Create; // инициализация стрима
IdHTTP1.Get('http://192.168.11.103:8080/Update/WRPS'+nVer+'.7z',strim); // скачиваем архив с актуальной версией
strim.SaveToFile('WRPS.7z'); // сохраняем его рядом с программой
with CreateInArchive(CLSID_CFormat7z) do begin   // разархивация
    OpenFile('WRPS.7z');                                        // разархивация
    ExtractTo('D:\WRPS1\');                                   // разархивация
  end;
ShellExecute(Handle,'open','D:\WRPS1\WRandPS.exe',nil,nil,SW_SHOWNORMAL); // запускаем скаченный файл
cc:=true;  // разрешаем закрытие программы
close;  // закрываем программу
except
showmessage('Не удалось обновить!');
end;
end;

  query1.Open('SELECT * FROM `update`'); //получаем таблицу
    nVer:=Query1.FieldByName('update').AsString; //получаем номер актуальной версии
    if nVer<>ver then // сравниваем нашу и новую версии
     updatePROG; // процедура описана выше, обновление
    p:=pos('\WRPS1\',ExtractFileName(Application.ExeName)); //проверяем есть ли в пути папка WRPS1
    if P<>0 then // Если есть ...
      begin
        DeleteFile('D:\WRPS\WRandPS.exe'); // удаляем файлы
        DeleteFile('D:\WRPS\zlib1.dll'); // удаляем файлы
        DeleteFile('D:\WRPS\ssleay32.dll'); // удаляем файлы
        DeleteFile('D:\WRPS\libmysql.dll'); // удаляем файлы
        DeleteFile('D:\WRPS\libeay32.dll'); // удаляем файлы
        DeleteFile('D:\WRPS\7z.dll'); // удаляем файлы
        CopyFile('D:\WRPS\data\config.ini','D:\WRPS1\data\config.ini',False); // сохраняем настройки пользователя
        DeleteFile('D:\WRPS\data\config.ini'); // удаляем файлы
        DeleteFile('D:\WRPS\data\sh1.x'); // удаляем файлы
        DeleteFile('D:\WRPS\data\sh2.x'); // удаляем файлы
        RemoveDirectory('D:\WRPS\data\'); // удаляем уже пустую папку
        RemoveDirectory('D:\WRPS\'); // удаляем уже пустую папку
        RenameFile('D:\WRPS1\','D:\WRPS\') // переименовываем папку, что бы все ярлыки пользователя работали нормально
      end;