[__cadetill]

Otra opcion para manteniendo el try except es la utilización de raise

    try
        msBDTmP.Connected:=true;
    except
        raise;
    end;

Así también visualizarás el error que se produce.
Otra alternativa para visualizar el error y mostrar un mensaje al usuario algo más bonito, es capturarlo

var
  str : string;
begin
......
    try
        msBDTmP.Connected:=true;
    except
        on E: Exception do
        begin
           str := 'Error conectado. Mensaje de error: ' + E.Message;
           Application.MessageBox(PChar(str), 'Atención', MB_OK);
        end,
    end;
end,

Espero te sirva