Instalação do PostGreSQL

procedure TDMInstalacaoPostgreSql.InstalaPostgreSql(arquivo_instalacao, nome_computador, usuario_servico, usuario_banco, senha_usuario_banco, diretorio_instalacao_postgres, diretorio_bases_dados: string);
var
  Configuracoes: string;
begin
  //Ver topico*
  //CriaUsuarioServico;
  //AplicaDireitoServico;

  Configuracoes := 
  ´/i ""  /qr INTERNALLAUNCH=1 ADDLOCAL=server,pgadmin,´ +
  ´docs DOINITDB=1 SERVICEDOMAIN=¬¬ SERVICEACCOUNT= ´ +
  ´SERVICEPASSWORD= SUPERUSER= ´ +
  ´SUPERPASSWORD= BASEDIR="" ´ +
  ´DATADIR="" PL_PGSQL=1 LOCALE=Portuguese_Brazil.1252 ´ +
  ´ENCODING=LATIN1 TRANSFORMS=:lang_pt_br´;
  Configuracoes := StringReplace(Configuracoes, ´´, arquivo_instalacao, []);
  Configuracoes := StringReplace(Configuracoes, ´´, nome_computador, []);
  Configuracoes := StringReplace(Configuracoes, ´´, usuario_servico, []);
  Configuracoes := StringReplace(Configuracoes, ´´, senha_usuario_servico, []);
  Configuracoes := StringReplace(Configuracoes, ´´, usuario_banco, []);
  Configuracoes := StringReplace(Configuracoes, ´´, senha_usuario_banco, []);
  Configuracoes := StringReplace(Configuracoes, ´´, diretorio_instalacao_postgres, []);
  Configuracoes := StringReplace(Configuracoes, ´´, diretorio_bases_dados, []);

  //pode ser usado ShellExecute normal tb
  //Chama o Windows Installer (msiexec.exe) passando como parametro a instalacao do postgres (Configuracoes):
  ExecAndWait(ConcatenaDiretorio(ObtemDiretorioWindows, ´msiexec.exe´), Configuracoes, SW_NORMAL);

  //Executar outras coisas apos a instalacao caso necessario..
end;