Fórum Erro ao tentar conectar a base de dados #613974

var

  vArquivo :TiniFile;
  caminho: String;
  user: String;
  pass: String;
  charset: String;
  DriverId : String;
  server: String;
  porta : String;
  tcp :String;
begin

      {Conexão com o Banco de dados}
      arquivo:=  ExtractFilePath(ParamStr(0));
      arquivo:= arquivo + 'Ideiasp.ini';
      FDConexao.Params.clear;
      FDConexao.Connected:= FALSE;
      FDConexao.Params.Clear;
      {Carregameto do dados de parametro}
      vArquivo:= TIniFile.Create(arquivo);
      caminho:= vArquivo.ReadString('CONEXAO','DATABASE',caminho);
      user:= vArquivo.ReadString('CONEXAO','USERNAME',user);
      pass:= vArquivo.ReadString('CONEXAO','PASSWORD',pass);
      charset:= vArquivo.ReadString('CONEXAO','CharacterSet',charset);
      DriverId := vArquivo.ReadString('CONEXAO','DriverID',DriverId);
      server := vArquivo.ReadString('CONEXAO','Server',server);
      porta :=  vArquivo.ReadString('CONEXAO','Porta',porta);
      tcp:='TCPIP';
      VIdTabela := vArquivo.ReadString('TABELA','IdTabela',VIdTabela);

      {inserir os dados na conexao}
      FDConexao.Params.Values['Database']:= caminho;
      FDConexao.Params.Values['User_Name']:= user;
      FDConexao.Params.Values['Password']:= pass;
      FDConexao.Params.Values['CharacterSet']:= charset;
      FDConexao.Params.Values['DriverID']:= DriverId ;
      FDConexao.Params.Values['Server']:= server;
      FDConexao.Params.Values['Protocol']:= tcp;
      FDConexao.Params.Values['Pooled']:= 'false';
      FDConexao.Params.Values['SQLDialect']:= '3';
      FDConexao.Params.Values['GUIDEndian']:= 'Little';
      FDConexao.Params.Values['ExtendedMetadata']:='false';
      FDConexao.Params.Values['OpenMode']:= 'Open';
      FDConexao.Params.Values['CharLenMode']:= 'Chars';
      FDConexao.Connected:= TRUE;