Mostrar Progreso de operaciones

[nickolas]

Gracias por tomarte las molestia de ayudarme pero solo tengo una duda, que es que yo tengo u procedimiento que se encarga de conectar, y no como hacer para integrar ese codigo con el procedimiento.
Este es el codigo del proceso de coexion si me podes arientar te agradeceria.

Código Delphi [-]
begin
  with DM_Conecciones do
      begin
         {En la linea Siguiente Creo o busco la ubicacion del archivo con las opciones}
        with TIniFile.Create(ExtractFilePath(Application.ExeName) + '\Configuracion.ini') do
          begin
            try
              begin
                Coneccion.Catalog := ReadString('Datos_Servidor','BasedeDatos:', Coneccion.Database);
                Coneccion.Database := ReadString('Datos_Servidor','BasedeDatos:', Coneccion.Database);
                Coneccion.HostName := ReadString('Datos_Servidor','Servidor:',Coneccion.HostName);
                Coneccion.Port := ReadInteger('Datos_Servidor','Puerto:',Coneccion.Port);
                Coneccion.User := ReadString('Datos_Servidor','Usuario:', Coneccion.User);
                Coneccion.Password := ReadString('Datos_Servidor','Contraseña:',Coneccion.Password);
              end;
            finally
                Free; {Libero un archivo}
            end;
          end;
      try
       begin
         Coneccion.Connected := TRUE;
       end;
      except
       begin
          Application.MessageBox('No ha sido posible conectar con el servidor', 'Conectar Servidor',MB_ICONEXCLAMATION);
       end;
      end;

      end;

Espero tu respuesta Chris gracias.