Progress Bar para conectarse a una BD Remota

[alonso.esparza]

hola que tal.

Pues aqui de nuevo.
Tengo un codigo para conectarme a una BD de access, todo esta bien, solo que dependiendo de lo lejos de la base de datos (es una red grande), se tarda cierto tiempo, no es mucho, solo quisiera que el tiempo que durara en conectarse se llenara una barra de progreso este es el codigo que tengo, esta en un evento change de un combobox, donde selecciono la ubicacion de la BD a la cual conectarme:

procedure TF_Asistencia.ComboBox1Change(Sender: TObject);
begin
Case ComboBox1.ItemIndex Of
0: begin
try
AC.Close;
AC.ConnectionString:=Memo1.lines[0]+'\\(Direccion IP)\BDDatos\'+Memo1.Lines[1];
AC.Connected:=True;
except
ShowMessage('Error En La Conexión');
end
end;

no se preocupen opr lo del conectionstrig si funciona JEJE

[alonso.esparza]

Espero me puedan ayudar Gracias

[Neftali [Germán.Estévez]]

Antes de nada comentarte que utilices TAG's cuando añadas código delphi, verás como se lee bastante mejor.
En cuanto a la conexión, no se si vas a poder poner una barra de progreso, ya que no tienes medida del tiempo que pasa y de lo que queda. Lo que sí puedes hacer es intentar algun tipo de animación (si usas bara de profgraso puedes hacer que suba y baje indefinidamente).

Para ello sólo se me ocurre que lances un Thread independiente que se encargue de la animación. Revisa en os foros sobre threads y haz alguna prueba, es un tema que ya se ha hablado otras veces.