Por una razón de tiempo que apremiaba ya a mi cliente recurrí a la siguiente solución, una asignación dinámica a la cadena de conexión:
Código Delphi
[-]procedure TfrmParametro.btnProbarConexionClick(Sender: TObject);
var
sConn: string;
begin
try
frmAcceso.ConnIntegracion.Connected := False;
sConn := 'Provider=SQLOLEDB;' +
'Data Source=' + edServInt.Text + ';' +
'Initial Catalog=' + edBDInt.Text + ';' +
'User Id=' + edUsuInt.Text + ';' +
'Password=' + edContraInt.Text;
frmAcceso.ConnIntegracion.ConnectionString := sConn;
frmAcceso.ConnIntegracion.Connected := True;
MyMessageDialog('Prueba de conexión exitosa', mtInformation, [mbOk], [OK]);
except
on E: Exception do
MyMessageDialog(E.Message + '. ' + E.ClassName, mtError, [mbOk], [OK]);
end;
end;
Y me funcionó súper bien.
Saludos.