SQL Server + Delphi se congela al ejecutar un Procedimeinto Almacenado

[subzero]

Hola.

He tomado la aplicación desde lo más básico y el problema lo tengo al momento de salir de la aplicación donde le pido que se desconencte de la base de datos... pero para conectarme lo hago a través del TADOConnection con los siguientes parametros

Código Delphi [-]
DM.Conexion.ConnectionString := 'Provider=SQLOLEDB.1;'+
                                    'Password=123456;'+
                                    'Persist Security Info=True;'+
                                    'User ID=usuario;'+
                                    'Initial Catalog='+Base_Datos +';'+
                                    'Data Source=' + Servidor_BD +';'+
                                    'Use Procedure for Prepare=1;'+
                                    'Auto Translate=True;'+
                                    'Packet Size=4096;'+
                                    'Workstation ID='+GetComputerName+';'+
                                    'Use Encryption for Data=False;'+
                                    'Tag with column collation when possible=False';
DM.Conexion.Connected := true;

y hasta aqui todo va bien cuando salgo ad ela aplicación en un botón salir tengo

Código Delphi [-]
DM.Conexion.Connected := false;
   if DM.Conexion.Connected = false then Application.Terminate;

Pero sigue congelado el programa y el error que hace alusión a: APPCRASH