как сделать setup.exe?

void __fastcall TMainForm::CreateAlias(AnsiString OName, AnsiString AName)
{
  try{
    HINSTANCE Odbc = LoadLibrary("odbccp32.dll");
    // Создадим системный DSN
    CreateODBC = (bool (INSTAPI*)(HWND hwndParent, WORD fRequest, LPCSTR lpszDriver, LPCSTR lpszAttributes))::GetProcAddress(Odbc,"SQLConfigDataSource");
    if(!(*(CreateODBC))(NULL, ODBC_ADD_SYS_DSN, "Oracle in OraClient10g_home1", "DSN=Naryad\0"
    "Password=dbo\0" "ServerName=astra46\0" "UserID=dbo\0")){
      AppError("Ошибка создания источника данных в ODBC.");
      WriteLog("Error: Ошибка создания источника данных в ODBC.", User->Login);
      _exit(0);
    }
    FreeLibrary(Odbc);
  }catch(...){
    AppError("Ошибка создания источника данных в ODBC.");
    WriteLog("Error: Ошибка создания источника данных в ODBC.", User->Login);
    _exit(0);
  }
  DBIResult rslt = DbiInit(NULL);
  if(rslt == DBIERR_NONE){
    AnsiString AliasName = AName, Driver = "Oracle in OraClient10g_home1";
    AnsiString Param = "DATABASE NAME:dbo;USER NAME:dbo;OPEN MODE:READ/WRITE;";
    Param += "BATCH COUNT:200;LANGDRIVER:'ascii' ANSI;MAX ROWS:-1;ODBC DSN:" + OName + ";SCHEMA CACHE DIR:;";
    Param += "SCHEMA CACHE SIZE:8;SCHEMA CACHE TIME:-1;SQLPASSTHRU MODE:SHARED AUTOCOMMIT;";
    Param += "SQLQRYMODE:SERVER;ENABLE SCHEMA CACHE:FALSE;ENABLE BCD:FALSE;ROWSET SIZE:20;";
    Param += "BLOBS TO CACHE:64;BLOB SIZE:32;PASSWORD:dbo";
    rslt = DbiAddAlias(NULL, AliasName.c_str(), Driver.c_str(), Param.c_str(), TRUE);
    if(rslt != DBIERR_NONE && rslt != DBIERR_NAMENOTUNIQUE){
      AppError("Ошибка создания псевдонима БД.");
      AnsiString Why = "Неизвестная ошибка";
      if(rslt == DBIERR_OBJNOTFOUND) Why = "Неверный параметр/несуществующая секция для заданного драйвера";
      if(rslt == DBIERR_UNKNOWNDRIVER) Why = "Неизвестный драйвер";
      WriteLog("Error: Ошибка создания псевдонима БД (" + Why + ").", User->Login);
      _exit(0);
    }
  }else{
    AppError("Ошибка создания псевдонима БД.");
    WriteLog("Error: Ошибка создания псевдонима БД.", User->Login);
    _exit(0);
  }
}